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FOREWORD 


This  report,  "Prediction  of  Supersonic  Store  Separation  Characteristics,’ 
describes  a combined  theoretical-experimental  program  directed  toward  devel- 
oping a computer  program  for  predicting  the  trajectory  of  an  external  store 
separated  from  an  aircraft  flying  at  supersonic  speed.  Volume  I,  "Theoret- 
ical Methods  and  Comparisons  with  Experiment,"  describes  the  theoretical 
approach  and  presents  extensive  comparisons  with  experimental  data.  This 
volume.  Volume  XI.-  "Users  Manual  for  the  Computer  Program,"  presents 
detailed  instructions  on  the  use  of  the  computer  program. 


The  work  was  carried  out  by  Nielsen  Engineering  & Research,  Inc., 

510  Clyde  Avenue,  Mountain  View,  California  94043,  under  Contract  No. 

F33615-75-C-3053.  The  contract  was  initiated  under  Project  8219,  Task 
821901  , of  the  Air  Force  Flight  Dynamics  Laboratory.  The  Air  Force  Project 
Engineer  on  the  contract  was  Calvin  L.  Dyer,  AFFDL/FGC.  The  report  number 
assigned  by  Nielsen  Engineering  & Research,  Inc.  is  NEAR  TR  106. 


The  authors  wish  to  thank  Mr.  Dyer,  AFFDL/FGC,  for  his  assistance 
during  the  course  of  the  investigation.  The  computer  program  card  deck 
is  available  upon  request  from  Mr.  Dyer.  His  address  is  AFFDL/FGC, 
Wright-Patterson  AFB,  Ohio  45433. 


The  work  documented  in  this  report  was  started  on  February  24 
and  was  effectively  concluded  with  the  submission  of  this  report, 
report  was  submitted  by  the  authors  in  March  1976. 
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PREDICTION  OF  SUPERSONIC  STORE 
SEPARATION  CHARACTERISTICS 

Volume  II.-  Users  Manual  for  the 
Computer  Program 


1 . INTRODUCTION 

The  purpose  of  this  volume  of  the  report  is  to  describe  and  present 
instructions  for  using  the  computer  program  developed  in  conjunction  with 
the  theoretical  work  presented  in  Volume  I , reference  1.  This  work 
represents  a first  year's  effort  on  the  development  of  an  analytical 
method  for  predicting  the  trajectory  of  a store  separated  from  an  aircraft 
flying  at  supersonic  speeds.  As  a result,  the  parent  aircraft  configur- 
ation which  can  be  modeled  does  not  have  the  generality  of  the  subsonic 
store  separation  prediction  method  and  program  described  in  references  2 
and  3.  Preliminary  versions  of  that  method  and  program  are  described  in 
references  4,  5,  and  6. 

In  developing  the  present  program  every  attempt  has  been  made  to  keep  < j 

the  input  data  format  the  same  as  that  used  in  the  program  described  in  * ’1 

reference  3.  The  printed  output  also  has  been  kept  as  similar  as  possible. 
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The  program  as  described  in  this  report  has  been  run  on  the  CDC  6600 
computer.  The  program  should  run  with  very  little,  if  any,  modification 
on  other  computers  with  large  enough  memory  capacity.  The  program  requires 
approximately  210,000  octal  words  of  core  storage  on  the  6600.  No  tapes, 
drums,  or  disks  are  used  by  the  program.  All  input  to  the  program  is  from 
cards  and  all  output  is  printed. 

The  next  sections  of  this  report  will  describe  in  more  detail  the 
general  use  of  the  program  and  then  present  instructions  for  preparing 
the  input  data  and  interpreting  the  output.  A sample  case  is  presented. 
Details  of  the  program  are  contained  in  an  appendix. 

Q 

The  method  of  describing  the  aircraft  components,  the  aircraft  opera- 
tional parameters,  and  the  dynamical  characteristics  of  the  store  are  of 
importance.  The  various  parameters  which  are  included  in  the  computer 
program  are: 
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Wing  Panels  *•- 

Thickness  distribution:  Specified  at  large  number  of  chordwise  loca- 
tions and  at  the  same  number  of  spanwise  locations  as  used  in  the  constant 
u-velocity  panel  layout  which  represents  the  wing  as  a lifting  surface. 


i ;/•  .r 
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Mean  camber  surface:  May  have  both  twist  and  camber. 

Leading-edge  shape:  Represented  by  straight  line  segments  of 

differing  sweep. 

Trailing-edge  shape:  Also  represented  by  straight  line  segments  of 

differing  sweep. 

Dihedral:  None. 

Fuselage 

Shape:  Body  of  revolution. 

Pylon 

Thickness  distribution:  Same  method  of  description  as  for  wing  panel 

Mean  camber  surface:  Planar. 

Orientation:  Vertical  and  streamwise. 

Leading-edge  shape:  Straight  but  can  be  swept. 

Trailing-edge  shape;  Straight  but  can  be  swept. 

Tip:  Parallel  to  pylon  root  chord. 

Number:  One  pylon  per  wing  panel  or  one  under  fuselage  centerline. 

Store 

Shape:  Body  of  revolution. 

Number  of  stores:  One. 

Attached  orientation:  Initial  pitch  angle  arbitrary,  initial  yaw 

angle  zero. 

Empennage:  Planar  or  cruciform  empennage. 

Initial  roll  orientation:  Arbitrary. 

Power;  Option  of  specifying  a thrust  time  history. 

Airplane  Operating  Characteristics 

Flight  path:  Straight  but  not  necessarily  horizontal. 

f U 

F j Flight  velocity:  Constant. 

> 

Density:  Constant. 

Angle  of  attack:  Constant, 

t Yaw  angle:  Zero. 
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Store  Inertial  Characteristics 


Moments  of  inertia:  Constant. 

Products  of  inertia:  Constant. 

Center  of  gravity  position:  Not  necessarily  on  store  longitudinal  axis. 

Store  Ejection  Conditions 

Initial  translational  velocities:  Arbitrary. 

Initial  pitching  velocity:  Arbitrary. 

Initial  yawing  velocity:  Arbitrary. 

Initial  rolling  velocity:  Arbitrary. 

2.  GENERAL  DESCRIPTION  OF  THE  USE  OF  THE  PROGRAM 

The  store  separation  trajectory  program  consists  of  three  main 
sections.  The  first  section  reads  in  the  input  data  and  calculates  quan- 
tities from  these  data,  the  second  section  solves  for  the  singularity 
distribution  which  represents  the  wing-pylon  loading  including  interference 
on  the  fuselage,  and  the  third  section  calculates  the  trajectory. 

2.1  Input  Section 

The  input  section  of  the  program  reads  in  the  following  information. 

(1)  Aircraft  flight  conditions 

(2)  Indices  specifying  what  aircraft  components  are  present 

(3)  Fuselage  data 

(4)  Wing  data 

(5)  Pylon  data 

(6)  Store  data 

The  aircraft  flight  conditions,  item  (1)  above,  which  can  be  varied  are 
the  angle  of  attack,  flight  path  angle,  Mach  number,  free-stream  air 
density,  and  flight  velocity. 

Item  (2)  consists  of  four  indices.  The  first  specifies  whether  a 
fuselage  is  present  and  the  second  specifies  whether  a pylon  is  present. 

The  third  index  is  not  used  and  has  been  left  in  for  compatibility  with 
the  input  data  for  the  subsonic  program,  reference  3.  The  fourth  index 
specifies  whether  a store  is  present.  The  program  in  its  present  form 
will  only  handle  one  store. 


The  fuselage  input  data,  item  (3)  above,  are  the  length,  maximum  radius, 
and  polynomials  specifying  the  body  radius  as  a function  of  axial  location. 
Other  fuselage  input  data  specify  the  number  of  sources  and  doublets,  to 
be  used  in  representing  the  fuselage  volume  and  angle  of  attack  effects, 
and  specify  the  fuselage  interference  panel  layout. 

The  wing  input  data,  item  (4) , locate  the  wing  relative  to  the  fuse- 
lage and  supply  information  required  to  lay  out  the  u-velocity  panels  and 
the  thickness  distribution.  These  data  also  include  the  twist  and  camber 
distribution  and  the  slope  distribution  of  the  thickness  envelope.  The 
wing  leading  and  trailing  edges  can  have  breaks  in  sweep. 

Similarly,  the  pylon  input  data,  item  (5),  locate  the  pylon  and  provide 
information  required  to  lay  out  the  u-velocity  panels  and  the  thickness 
distribution.  The  pylon  is  located  laterally  relative  to  the  fuselage 
centerline  and  longitudinally  relative  to  the  leading  edge  of  the  local 
wing  chord.  The  data  also  include  the  slope  distribution  of  the  thickness 
envelope.  The  pylon  cannot  have  twist  or  camber.  The  leading  and  trailing 
edges  can  be  swept  at  constant  but  different  sweep  angles. 

Store  data,  item  (6) , are  input  which  assign  a store  number  and  specify 
a shape  number,  length,  and  maximum  radius.  The  store  is  located  by  speci- 
fying its  lateral  position  relative  to  the  fuselage  centerline  and  the 
longitudinal  and  vertical  position  of  the  store  nose  relative  to  the  wing 
chord  immediately  above  the  store.  The  incidence  of  the  store  relative 
to  the  wing  root  chord  is  also  specified.  The  store  must  be  under  the 
fuselage  centerline  or  to  the  left  of  this  line  as  seen  by  the  pilot* 

Data  used  to  determine  the  source  and  doublet  distributions  to  represent 
the  store  volume  and  angle  of  attack  effects  are  also  input.  These  data 
include  the  number  of  singularities  and  polynomials  specifying  the  store 
shape . 

2.2  Wing-Pylon  Loading  Section 

The  second  main  section  of  the  program  calculates  the  singularity 
distribution  representing  the  wing-pylon  loading  including  interference  on 
the  fuselage.  This  is  done  using  the  method  described  in  section  3.3  of 
reference  1.  The  coefficient  matrix  is  first  calculated  and  then  the 
right-hand  side  is  determined.  Finally,  the  strengths  of  the  constant 
u-velocity  panels  divided  by  ir  are  calculated  by  solving  the  set  of 
simultaneous  equations. 
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2.3  Trajectory  Section 

The  third  and  last  main  section  of  the  trajectory  program  is  the 
trajectory  calculation  which  consists  of  the  following  steps: 

(1)  Input  additional  information  to  describe  separated  store 

(2)  Input  empennage  data  if  store  has  one 

(3)  Input  thrust  time  history  if  powered  store 

(4)  Initialize  for  trajectory  calculation 

(5)  Calculate  aerodynamic  forces  and  moments 

(6)  Calculate  accelerations  and  rates  of  change  of  orientation  angles 

(7)  Integrate  equations  of  motion 

(8)  Repeat  steps  (5) , (6) , and  (7)  to  end  of  trajectory 

The  additional  data  describing  the  store  to  be  separated  include  indices 
specifying  the  store  number,  the  number  of  segments  the  body  is  to  be 
broken  into  for  the  force  calculation,  the  flow  separation  location, 
whether  the  store  has  an  empennage  and  whether  it  is  powered.  Also,  the 
store  mass  and  inertia  characteristics  are  read  in  along  with  the  location 
of  the  point  about  which  the  aerodynamic  moments  are  to  be  calculated. 

This  is  the  point  about  which  the  moments  and  products  of  inertia  were 
calculated.  The  location  of  the  store  center  of  mass  relative  to  this  point 
is  also  specified  as  are  the  store  axial-force  coefficient  and  the  \alue 
of  the  crossflow-drag  coefficient  to  be  used  in  the  viscous  crossflow  force 
and  moment  calculation. 

Three  other  indices  are  input  which  pertain  to  options  included  in 
the  computer  program.  Provision  has  been  made  to  include  or  exclude  the 
damping  terms  in  the  velocity  field  calculation.  Also,  for  a store  with 
an  empennage,  rolling  moment  may  or  may  not  be  included  in  the  acceleration 
determination.  The  third  option  pertains  to  the  calculation  of  free-flight 
trajectories  as  opposed  to  captive-store  trajectories  as  obtained  in  the 
wind  tunnel.  In  wind-tunnel  captive-store  testing  it  is  customary  to 
change  the  store  pitch  and  yaw  angles  to  account  for  translational  motion 
only  while  measuring  the  aerodynamic  forces  and  moments.  This  changes  its 
position  in  the  nonuniform  flow  field.  Provision  has  been  made  in  the 
computer  program  to  simulate  this. 

For  a store  with  an  empennage,  additional  quantities  must  be  specified. 
These  data  are  an  index  indicating  whether  the  enpennage  is  planar  or 
cruciform,  the  tail-fin  semispan,  the  average  body  radius  in  the  tail-fin 
region,  the  initial  roll  orientation  of  the  fins,  and  the  lift-curve  slope 
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of  the  fins  alone.  In  addition,  the  axial  position  at  which  the  forces 
are  assumed  to  act  must  be  specified. 

For  a powered  store,  a series  of  polynomials  is  used  to  specify  the 
thrust  time  history. 

In  the  trajectory  initialization  certain  store  separation  conditions 
are  specified.  These  are  the  initial  translational  velocities  and  rota- 
tional velocities. 

The  integration  of  the  equations  of  motion  is  done  by  a standard 
numerical  integration  technique  with  the  aerodynamic  forces  and  moments 
calculated  at  each  point  required  by  the  integration  scheme.  The  calcu- 
lation of  the  nonuniform  velocity  field  and  the  resulting  forces  and  moments 
is  described  in  sections  3.4  and  4 of  reference  1 and  in  section  5 of  refer- 
ence 4,  respectively. 

For  a given  aircraft-store  combination  and  Mach  number,  it  can  be 
seen  that  a series  of  trajectories  can  be  run  with  only  minor  changes  to 
the  input  data  deck.  For  example,  the  aircraft  angle  of  attack  can  be 
varied  by  changing  one  number  on  one  card  as  can  the  aircraft  flight  path 
angle.  The  altitude  can  be  varied  by  changing  the  free-stream  density 
and  possibly  the  free-stream  velocity  to  account  for  changes  in  the  speed 
of  sound.  Among  other  things  easily  varied  are  the  store  mass  and  inertia 
properties,  center  of  gravity  location,  and  ejection  conditions. 

Provision  has  also  been  made  for  restarting  a trajectory.  This  is 
accomplished  by  changing  one  card  which  specifies  the  initial  and  final 
times  and  adding  two  cards  specifying  the  current  values  of  the  dependent 
variables.  These  are  tabulated  in  the  output  at  each  integration  step. 

3.  DETAILS  OF  THE  USE  OF  THE  PROGRAM 

The  program  consists  of  a main  program  and  42  subroutines.  Table  I 
lists  these  subroutines  in  alphabetical  order  and  gives  a one-sentence 
description  of  what  each  subroutine  does.  A listing  of  the  six-degree-of- 
freedom  trajectory  program  and  its  42  subroutines  is  presented  in  figure  1 
and  a general  flow  chart  of  the  main  program  in  figure  2.  The  program 
listing  in  figure  1 is  specifically  for  the  CDC  6600  computer.  To  run  it 
on  other  machines  the  first  card  and  the  three  cards  following  statement 
number  1000  in  the  main  program  may  have  to  be  removed  or  changed.  A 
detailed  description  of  the  program  and  subroutines,  including  the  equa- 
tions programmed,  is  presented  in  Appendix  I. 


3.1  General  Flow  Chart 


The  computer  program  integrates  the  six-degree-of-freedom  equations 
of  motion  which  are  derived  in  Appendix  II  of  reference  4.  The  aerodynamic 
forces  and  moments  are  calculated  by  the  methods  presented  in  section  5.2 
of  that  report. 

A general  flow  chart  of  the  program  is  presented  in  figure  2.  Page  1 
of  the  flow  chart,  figure  2(a),  is  the  input  section  of  the  program. 
Constants  are  defined  and  heading  information  is  read  and  printed.  The 
aircraft  flight  conditions  are  input  as  are  indices  specifying  what  air- 
craft components  are  present.  If  the  fuselage  is  present,  the  fuselage 
data  are  read  in  and  printed  in  subroutine  FUSEIO.  This  routine  also 
calls  BDYGEN  to  calculate  the  source  and  doublet  distributions  which 
represent  the  fuselage  volume  and  angle  of  attack  effects. 

The  next  st-'ps  in  the  program  read  in  the  data  required  to  model  the 
wing.  The  data  locating  the  wing  are  first  read  and  then  subroutine 
SWNGIN  is  called.  This  routine  reads  in  the  data  required  to  lay  out  the 
constant  u-velocity  panels  which  will  represent  the  loaded  wing.  In 
addition  it  reads  in  the  twist  and  camber  distribution  at  the  panel  control 
points.  Subroutine  WLYOUT  is  called  to  lay  out  the  panels.  The  last  wing 
input  data  is  the  thickness  distribution.  These  data  are  read  in  by  sub- 
routine WITHIN. 

A check  is  made  in  the  program  to  determine  whether  or  not  a pylon 
is  present.  If  one  is,  subroutine  PLYOUT  is  called  to  read  in  the  data 
required  to  lay  out  the  constant  u-velocity  panels  which  will  represent 
the  pylon  loading.  This  routine  also  lays  out  the  panels.  Subroutine 
PYTHIN  is  next  called  to  read  in  the  pylon  thickness  data. 

The  next  two  steps  in  the  program  are  calls  to  subroutines  THKOUT  and 
THKLYT.  These  two  routines,  respectively,  print  the  input  data  for  the 
wing  and  pylon  thickness  and  lay  out  the  thickness  panels. 

A check  is  now  made  to  see  if  a fuselage  is  present.  If  it  is  then 
subroutine  BLYOUT  is  called  to  lay  out  the  constant  u-velocity  panels  on 
the  fuselage. 

Provision  has  been  made  for  not  including  a store  in  the  input  data. 
This  has  been  done  so  that  the  program  can  be  used  to  determine  the  coor- 
dinates of  the  points  at  which  the  wing  twist  and  camber  distribution  must 
be  input.  The  next  step  in  the  program  checks  to  see  if  there  is  a store 


and  if  there  is  not  one,  the  store  input  section  of  the  program  is  bypassed. 
If  there  is  a store,  subroutine  STORIO  is  called  to  read  in  and  print  all 
of  the  store  data.  These  data  consist  of  the  location  and  incidence  of  the 
store  and  polynomials  specifying  its  shape.  This  routine  also  calls  sub- 
routine BDYGEN  to  calculate  the  source  and  doublet  distributions  which 
represent  the  store  volume  and  angle  of  attack  effects.  Following  this 
the  store  is  located  in  the  fuselage  coordinate  system. 

Boxes  2 through  4 of  the  left-hand  column  of  figure  2(b)  are  associated 
with  the  calculation  of  the  strengths  of  the  constant  u-velocity  panels  to 
represent  the  wing-pylon  loading  including  interference  effects  on  the 
fuselage.  The  equations  used  to  solve  for  the  strengths  are  given  in 
section  3.3  of  reference  1.  The  first  step  is  to  call  subroutine  DPCOEF 
which  calculates  the  coefficient  matrix,  that  is,  the  coefficients  multi- 
plying the  unknown  panel  strengths  divided  by  v,  (u+/Voo)/V.  The  next 
step  is  to  call  subroutine  DPRHS  which  calculates  the  right-hand  side  of 
this  set  of  simultaneous  equations.  The  resulting  set  of  equations  is 
then  solved  by  calling  subroutine  INVERS.  The  next  section  of  the  program 
prints  the  resulting  panel  strengths,  control  point  coordinates,  and  inter- 
ference velocities  at  these  points.  If  a store  is  not  present  this  ends 
the  calculations  and  the  program  returns  to  the  beginning  to  read  another 
set  of  input  data. 

If  a store  is  present  the  program  continues  and  reads  in  the  additional 
data  required  to  describe  the  store  to  be  separated  and  performs  the  initial 
ization  for  the  trajectory  calculation.  The  remainder  of  the  flow  chart  of 
figure  2 (b)  shows  this  part  of  the  program.  First  the  additional  data 
describing  the  store  are  read  in.  These  data  consist  of,  among  other  things 
the  mass  and  inertia  characteristics,  polynomials  defining  the  body  shape, 
and  center  of  gravity  location.  The  next  step  is  to  calculate  other  quan- 
tities from  these  data. 

If  the  store  to  be  separated  has  an  empennage  the  data  required  to 
describe  the  empennage  are  input  and  subroutine  SEMPIN  is  called  to  ini- 
tialize for  the  empennage  force  and  moment  calculation. 

The  program  next  reads  in  polynomials  specifying  the  thrust  time 
history  if  this  option  if  being  used. 

Provision  is  made  in  the  program  for  prescribing  initial  translational 
and  rotational  velocities  relative  to  the  parent  aircraft.  These  are  next 


read  in  and  then  the  initial  values  of  the  12  dependent  variables  in  the 
trajectory  calculation  are  computed.  These  are: 


(1)  The  three  coordinates  of  the  store  center  of  moments  relative 
to  the  fuselage  nose. 


(2)  The  three  translational  velocity  components  of  the  store  center 
of  moments  relative  to  the  fuselage. 


(4)  The  three  angles  giving  the  store  orientation  relative  to  the 


Reference  positions  of  the  store  nose,  center  of  moments,  and  base  are 
next  calculated  and  the  initial  and  final  trajectory  times,  as  well  as 
the  integration  interval,  are  input.  If  the  initial  time  is  not 
zero,  then  the  trajectory  is  being  restarted  from  a previous  run  and  the 
current  values  of  the  12  dependent  variables  obtained  from  that  run  are 
read  in.  The  last  step  in  the  initialization  is  to  initialize  subroutine 
ADAMS,  the  integration  routine. 


The  last  page  of  the  flow  chart,  figure  2(c) , is  the  integration  loop 
of  the  program.  The  first  steps  are  to  calculate  the  aerodynamic  forces 
and  moments  acting  on  the  body  and  the  empennage,  if  one  is  present,  of 
the  separated  store.  The  body  forces  and  moments  are  determined  by  using 
the  equation  presented  in  section  5.2  of  reference  4.  The  empennage  forces 
and  moments  are  determined  as  discussed  in  section  5.3  and  Appendix  I of 
that  reference. 


One  of  the  options  in  the  computer  program  is  to  calculate  a wind- 
tunnel  captive-store  trajectory  as  ppposed  to  a free-flight  trajectory. 

It  is  customary  in  the  wind  tunnel  to  change  the  store  orientation  relative 
to  the  parent  aircraft  while  measuring  the  forces  and  moments  in  order  to 
approximately  account  for  the  store  translational  motion  relative  to  the 
aircraft.  The  computer  program  also  does  this  during  the  force  and  moment 
calculation.  Thus,  if  a captive-store  trajectory  is  being  calculated,  the 
next  step  in  the  program  is  to  put  the  store  back  to  its  correct  orientation 
and  call  subroutine  DIRCOS  in  order  to  calculate  the  free-flight  direction 
cosines  between  the  store  body  coordinate  system  and  the  inertial  coordinate 
system  which  is  fixed  in  the  fuselage. 


The  next  series  of  steps  determines  the  store  translational  and  rota 
tional  accelerations.  This  involves  solving  the  set  of  six  simultaneous 


equations  given  by  equations  (11-16)  through  (11-18)  and  (11-41)  through 
(11-43)  of  Appendix  II  of  reference  4 making  use  of  the  relationships 
given  in  section  6.1  of  that  reference.  The  equations  in  section  6.1  are 
unchanged  except  for  the  expression  for  the  force  acting  along  the  store 
axis,  F , in  equation  (65).  This  now  contains  a thrust  term  so  that 

Fx  = mgx  - ‘J»sSRCA  + FT  (1) 


The  coefficient  matrix  is  first  calculated  and  then  the  right-hand  sides 
are  determined.  Subroutine  INVERS  is  called  to  solve  the  set  of  six 
equations  for  the  accelerations.  The  rates  of  change  of  the  orientation 
angles  are  next  determined  from  equation  (Il-l)  of  Appendix  II  of 
reference  4. 

A check  is  next  made  to  see  if  output  is  to  be  printed  at  the  end  of 
an  integration  step.  If  output  is  not  required  the  integration  continues 
by  calling  subroutine  ADAMS.  If  it  is  required,  subroutine  SOUTPT  is 
called.  Upon  return  from  this  subroutine  a check  is  made  to  see  if  the 
time  is  equal  to  the  final  time  which  was  read  in  and  if  so,  the  trajectory 
is  stopped  and  control  returns  to  the  beginning  of  the  program  to  read  in 
a new  set  of  data.  If  it  is  not,  the  integration  is  continued. 

3.2  Input  Data 

This  section  of  the  report  will  describe  in  detail  the  preparation 
of  the  input  data  deck  for  the  program.  Whenever  possible  the  input  format 
has  not  been  changed  from  that  used  in  the  subsonic  store  separation  pro- 
gram described  in  reference  3.  If  an  item  of  input  has  not  been  changed, 
the  item  number  of  figure  14  of  reference  3 will  be  given.  Other  remarks 
which  will  aid  the  user  who  is  familiar  with  the  subsonic  program  will 
be  made  where  appropriate. 

3.2.1  Input  format 

The  format  for  the  input  data  for  the  trajectory  program  is  shown  in 
figure  3.  Three  lines  of  information  are  shown  for  each  item.  The  first 
line  gives  the  program  variable  names,  the  second  line  shows  the  card 
column  fields  into  which  the  data  are  to  be  punched,  and  the  third  line 
shows  the  FORTRAN  format  type.  Data  punched  in  I and  E formats  are  right 
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justified  in  the  fields  whereas  data  in  F format  can  be  punched  anywhere 
in  the  field.  A decimal  point  should  be  included  in  both  E-  and  F-type 
data. 


Item  number  1 (item  no.  1,  ref.  3)  is  an  index  NCARDS  which  indicates 
how  many  cards  of  information  are  to  follow  to  identify  the  run,  item 
number  2.  The  value  of  NCARDS  must  be  one  or  greater. 

Item  number  2 (item  no.  2,  ref.  3)  is  a set  of  NCARDS  cards  containing 
hollerith  information  identifying  the  run  and  may  start  and  end  anywhere 
on  the  card.  The  cards  are  reproduced  in  the  output  just  as  they  are  read 
in. 

Item  number  3 (item  no.  3,  ref.  3)  consists  of  one  card  and  contains 
the  following  information: 

ALFAC  fuselage  and  wing  angle  of  attack,  degrees 

GAMF  fuselage  flight  path  angle,  degrees 

FMACH  Mach  number 

RHO  air  density  at  flight  altitude,  slugs  per  cubic  foot 

VINF  aircraft  free-stream  velocity,  feet  per  second 

The  aircraft  is  assumed  to  be  flying  in  a straight  line;  however,  it  can 
be  climbing  or  diving.  For  climbing  flight,  GAMF  is  positive.  The  Mach 
number  should  be  between  1.2  and  3.0  and  the  angle  of  attack  should  not 
exceed  10°.  The  wing- fuselage  flow  model  is  valid  within  these  limits. 

Item  number  4 contains  four  indices  which  specify  what  aircraft  com- 
ponents are  present.  They  are 


NFU 

fuselage? 

NFU  = 0 , no 
NFU  = 1,  yes 

NPY 

pylon? 

NPY  = 0,  no 
NPY  = 1,  yes 

NDMY 

dummy  variable  which  is 

as  NDMY 

= 0 

NSTRS 

store? 

NSTRS  = 0,  no 

NSTRS 


1,  yes 


Provision  has  been  made  for  omitting  the  fuselage.  For  cases  with  no  fuse- 
lage the  reference  coordinate  system  is  fixed  at  the  wing  root-chord  leading 
edge  and  ALFAC  and  GAMF  of  item  3 should  be  the  wing  angle  of  attack  and 
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flight  path  angle,  respectively.  The  present  version  of  the  program  is 
limited  to  one  store,  NSTRS  = 1.  The  number  of  stores  can  be  zero.  This 
allows  the  input  data  deck  through  item  23  to  be  checked  out  without  running 
a trajectory.  In  addition,  the  program  can  also  be  used  as  an  aid  in  deter- 
mining the  points  on  the  wing  and  pylon  at  which  the  slopes  of  the  camberline 
and  the  thickness  distribution  are  to  be  input. 

Item  number  5 (item  no.  5,  ref.  3)  consists  of  two  quantities  which  are 

FLTHC  length  of  fuselage,  feet 

FRMAX  maximum  fuselage  radius,  feet 

This  item  and  the  next  five  are  omitted  if  NFU  = 0. 

The  next  three  items  of  input,  items  6.  7,  and  8 (item  no.  9,  10,  and 
11,  ref.  3)  are  included  in  the  data  deck  only  when  NFU  = 1.  They  are 

NFPOLY  number  of  polynomials  specifying  circular 

fuselage  shape 
1 ^ NFPOLY  <;  7 

FXEND(J)  x/f  of  end  points  of  polynomials  specifying 

fuselage  shape,  NFPOLY  values 

FCOEF ( J ,K)  coefficients  of  polynomials  specifying  shape 

These  data  specify  the  radius  distribution  of  the  fuselage  and  are  used  in 
the  calculation  of  the  source-sink  distribution  which  represents  the  fuse- 
lage volume  and  the  doublet  distribution  which  represents  the  fuselage  angle 
of  attack  effects.  Up  to  seven  polynomials  may  be  used.  The  polynomial 
programmed  is 


where  C through  C are  the  coefficients,  r is  the  local  fuselage 

1 7 

radius,  and  f is  the  fuselage  length.  The  polynomials  must  be  input  for 
shapes  which  are  made  dimensionless  by  the  body  length  since  the  trajectory 
program  is  written  assuming  this  to  be  the  case. 

Item  6 specifies  the  number  of  polynomials.  Item  7 consists  of  one 
card  which  contains  the  NFPOLY  values  of  the  end  points  of  the  polynomials 
describing  the  shape.  The  decimal  point  can  be  placed  anywhere  in  the  ten- 
column  field. 
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Item  number  8 on  figure  3 is  a set  of  NFPOLY  cards  specifying  the 
values  of  the  coefficients  of  the  polynomials,  equation  (2).  All  seven 
coefficients  are  input  even  though  some  of  them  may  be  zero. 


Items  9 and  10  specify  the  body  interference  panel  layout  and  the 
number  of  line  sources  and  line  doublets  to  be  used  to  model  the  fuselage 
volume  and  angle  of  attack  effects.  The  various  quantities  are 


number  of  rings  of  body  interference  panels 


NCWB 


NBDCRl 


number  of  panels  in  a ring  lying  above  the 
wing  on  the  left  half  of  the  fuselage 


NBDCR2 


number  of  panels  in  a ring  lying  below  the 
wing  on  the  left  half  of  the  fuselage 


number  of  line  sources  and  line  doublets  to  be 
used  over  the  fuselage  length 


NFSOR 


length  of  fuselage  over  which  body  interference 
panels  are  to  be  placed,  feet 


BODYPL 


The  definitions  of  some  of  the  above  quantities  can  be  clarified  by  the 
use  of  figure  4.  In  this  simplified  layout  there  are  five  rings  of  body 
interference  panels , NCWB  = 5 , laid  out  over  the  length  BODYPL.  In  each  of 
the  rings  one  panel,  NBDCRl  = 1,  lies  above  the  wing  zw  = 0 plane  and 
three  panels,  NBDCR2  = 3,  lie  below  this  plane.  Some  general  rules  for 
determining  the  input  values  of  these  quantities  will  now  be  given. 


First,  consider  the  length  BODYPL.  If  the  wing  trailing  edge  is  super 
sonic,  that  is,  the  component  of  the  free-stream  Mach  number  perpendicular 
to  the  trailing  edge  is  greater  than  one,  body  interference  panels  should 
be  laid  out  over  the  wing  root-chord  length,  CRW,  in  figure  4.  For  a sub- 
sonic wing  trailing  edge,  (perpendicular  Mach  number  less  than  one)  body 
interference  panels  should  extend  to  the  xw  coordinate  of  the  wing  tip- 
chord  trailing  edge.  If  the  base  of  the  store  being  separated  is  behind 
the  point  selected  using  the  preceeding  rules  then  the  body  interference 
panels  should  be  extended  to  the  x^  location  of  the  store  base.  When  a 
large  rearward  axial  motion  of  the  store  is  expected  during  its  trajectory, 
the  body  panels  should  be  extended  aft  to  cover  this  motion. 


The  number  of  rings  of  body  interference  panels  and  the  number  of  panels 
in  each  ring  will  now  be  discussed.  The  number  of  rings  is  dependent  on 
the  number  of  panels  in  a chordwise  row  on  the  wing,  NCW.  This  quantity 
is  input  as  part  of  item  13  and  its  selection  will  be  discussed  later. 

Since,  if  at  all  possible,  the  same  number  of  chordwise  panels  should  be 


used  on  both  the  body  and  the  wing,  over  the  wing  root-chord  region,  CRW 
in  figure  4,  the  number  of  rings  of  body  panels  can  be  found  using  the 
following  relation 


NCWB  = NCW  (aSSXp) 


The  value  of  CRW  is  determined  as  described  under  the  item  12  input  data. 

In  the  above  expression,  the  value  of  BODYPL  should  be  adjusted  so  that 
NCWB  is  an  integer. 

Two  rules  can  be  given  for  selecting  the  number  of  panels  in  a ring 
on  the  left  side  of  the  body.  If  the  store  to  be  separated  is  under  the 

fuselage  at  least  eight  panels  should  be  used.  If  the  store  is  under  the 

wing,  six  panels  is  probably  sufficient.  The  two  input  parameters  speci- 
fying the  number  in  a ring  are  NBDCR1  and  NBDCR2 . These  are  the  number  of 

panels  above  and  below  the  wing  zui  = 0 plane  of  figure  4.  Assume  that 

six  panels  are  to  be  used  in  a ring,  for  example.  Then,  the  values  of 
NBDCR1  and  NBDCR2  for  three  specific  wing  positions  are: 

Mid-wing 

NBDCR1  = NBDCR2  = 3 

Wing  tangent  with  top  of  fuselage 
NBDCR1  = 0,  NBDCR2  = 6 

Wing  tangent  with  bottom  of  fuselage 
NBDCR1  = 6,  NBDCR2  = 0 

For  wings  located  intermediate  between  the  mid-wing  and  high  or  low  wing 
positions,  the  panels  should  be  divided  above  and  below  the  wing  so  that 
the  panel  widths  are  as  equal  as  possible. 

The  computer  program  as  documented  in  this  report  limits  the  total 
number  of  constant  u-velocity  panels  or  interference  panels  on  the  fuselage, 
wing,  and  pylon  to  200.  This  limit  is  imposed  by  the  dimensions  of  certain 
arrays  in  the  program.  Thus,  the  following  relation  which  is  based  on  the 
total  panel  layout  must  be  satisfied. 


NCWB* (NBDCR1  +NBDCR2)  + NCW  *MSW  + NCP*MSP  £200  (j 

The  variables  NCW  and  MSW  are  input  in  item  13  and  the  variables  NCP  and 
MSP  are  input  in  item  20. 
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The  last  input  variable  in  item  number  9 is  NFSOR,  the  number  of  line 
sources  and  line  doublets  to  be  used  to  model  the  fuselage  volume  and  angle 
of  attack  effects.  The  general  rule  to  use  in  determining  NFSOR  is  that 
the  distance  between  the  origins  of  successive  sources  or  doublets  should 
be  approximately  equal  to  the  chordwise  length  of  the  wing  constant  u-velocity 
panels  at  the  root  chord.  Therefore, 


NFSOR 


NOW 


; 100 


The  maximum  value  of  100  is  imposed  by  dimension  statements  in  the  program. 
The  fuselage  length,  FLTHC , was  input  as  part  of  item  5.  The  wing  root 
chord  length,  CRW,  will  be  input  as  part  of  item  12  and  the  number  of 
chordwise  panels,  NCW,  will  be  input  as  part  of  item  13. 

Item  number  11  (item  15,  ref.  3)  contains  two  parameters  which  specify 
the  wing  location  relative  to  the  fuselage  nose.  The  two  parameters  are 
shown  pictorially  in  ^igure  5 and  are 


XBWOC  Xg  location  of  intersection  of  wing  leading  edge 

with  fuselage  , feet;  negative  as  shown  in  figure  5 

ZBWO  Zg  location  of  intersection  of  wing  leading  edge 

with  fuselage  , feet;  negative  as  shown  in  figure  5 

Item  12  (item  16,  ref.  3)  contains 


CRW  wing  root  chord  length,  feet 

SSPAN  wing  semispan,  feet 


The  definitions  are  shown  in  figure  6.  The  wing  root  chord  is  the  wing 
chord  at  the  spanwise  station,  Y(l) , at  which  the  wing  leading  edge  inter- 
sects the  fuselage.  Both  quantities  are  input  as  positive  quantities. 

Items  13  and  14  (items  17  and  16,  ref.  3)  are  input  data  describing 
the  left  wing  panel  which  are  used  to  lay  out  the  constant  u-velocity 
panels.  The  quantities  are 

NCW  number  of  panels  in  a chordwise  row  on  wing  ; NCW  4 

MSW  number  of  panels  in  a spanwise  row  on  wing; 

also  number  of  thickness  strips  in  a spanwise 
row  on  wing;  MSW  <£  19 

I wing  u-velocity  panel  side-edge  number; 

I = 1 to  MSW+1 
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Y(I) 


PSIWLE(I) 


PSIWTE (I) 


y location  of  side  edge  on  the  left  wing 

panel,  feet  (1=1  value  shown  in  figure  6, 
negative  for  all  I’s  since  on  left  panel; 
measured  in  wing  planform  plane) 

leading-edge  sweep  of  wing  section  to  the 
right  of  the  Ith  side  edge,  degrees;  positive 
swept  back  (measured  in  wing  planform  plane) 

trailing-edge  sweep  of  wing  section  to  the 
right  of  the  Ith  side  edge,  degrees;  positive 
swept  back  (measured  in  wing  planform  plane) 


Based  on  these  input  data,  the  wing  is  divided  chordwise  and  spanwise 
into  trapezoidal  shaped  elemental  panels  and  one  constant  u-velocity  panel 
placed  on  each  panel.  All  the  NCW  panels  in  a chordwise  row  have  equal 
chords  and  spans,  the  spans  being  determined  by  the  Y(I)'s. 


The  question  arises  as  to  the  values  to  use  for  NCW  and  MSW.  No 
specific  rules  can  be  given  since  the  number  needed  is  determined  to  some 
extent  by  the  wing  planform  shape  and  the  location  of  the  store  being 
separated.  Fewer  panels  can  be  used  on  the  wing  if  the  store  is  under  the 
fuselage  than  if  the  store  is  under  the  wing.  The  number  of  panels  in  a 
chordwise  row,  NCW,  is  also  determined  to  some  extent  by  the  camber  distri- 
bution, if  any,  since  the  camber  is  specified  at  the  panel  control  points. 

If  the  wing  is  uncambered  except  near  the  leading  edge  then  a fairly  large 
number  of  panels  is  required  in  a chordwise  row  if  this  effect  is  to  be 
included.  In  general  a minimum  of  eight  panels,  NCW  =8,  should  be  used. 


The  number  of  panels  in  a spanwise  row,  MSW,  is  controlled  to  some 
extent  by  the  wing.  A panel  side  edge  must  coincide  with  the  root  chord 
and  each  break  in  leading-edge  sweep  angle  and  trailing-edge  sweep  angle, 
and  if  a pylon  is  present,  a trailing  leg  must  coincide  with  the  spanwise 
location  of  the  pylon.  One  must  also  coincide  with  the  wing  tip.  Consider 
the  example  wing  alone  of  figure  7.  There  is  a break  in  trailing-edge 
sweep  at  y^/s  = -0.2,  a break  in  leading-edge  sweep  at  -0.4,  and  a pylon 
at  -0.6.  To  place  a panel  side  edge  at  each  of  these  positions  plus  the 
wing  tip  and  the  root  chord  requires  four  panels  across  the  semispan.  This 
is  the  minimum  number  which  can  be  used  for  this  wing  and  is  probably  not 
sufficient.  Experience  with  the  program  has  shown  that  in  some  cases  six 
panels  in  a spanwise  row  has  given  good  results. 

The  only  sure  way  of  determining  convergence  with  number  of  panels, 
both  NCW  and  MSW,  is  to  examine  the  results  obtained  from  the  trajectory 
program.  For  a particular  wing  various  panel  layouts  should  be  tried  to 
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assure  convergence.  The  minimum  number  of  panels,  consistent  with  the 
desired  accuracy,  should  be  used  in  order  to  minimize  the  trajectory  calcu- 
lation time. 

The  maximum  number  of  panels  that  can  be  placed  on  the  left  wing  panel, 
pylon,  and  fuselage,  is  200.  This  limit  is  imposed  by  dimension  statements 
in  the  computer  program.  Thus,  limits  may  be  imposed  on  NCW  and  NSW  in 
order  to  satisfy  equation  (3)  . 

Item  number  14  consists  of  a deck  of  MSW+1  cards.  The  index  I is 
the  panel  side-edge  number.  The  side  edges  are  numbered  from  the  root 
chord,  I = 1,  to  the  tip,  I = MSW  + 1.  Associated  with  each  I are  the 
spanwise  location  of  the  side  edge,  Y(l),and  the  sweep  angles  of  the 
leading  and  trailing  edges  of  the  wing  segment  to  the  right  of  the  side 
edge,  PSIWLE(I)  and  PSIWTE(I).  When  1=1  the  sweep  angles  are  zero. 

The  two  indices  of  item  number  15  (item  19,  ref.  3)  are  associated 
with  the  wing  twist  and  camber  distribution. 

NTAC  twist  and/or  camber?  NTAC  = 0 , no 

NTAC  = 1,  yes 

NUNI  if  wing  has  no  twist,  and  the  camber  distribution 

is  similar  at  all  spanwise  stations,  NUNI  = 1;  for 
all  other  cases,  NUNI  = 0 (omit  if  NTAC  = 0) 

If  NTAC  = 1,  item  number  16  is  included  in  the  input  data  deck.  These 
data  specify  the  wing  twist  and/or  camber  distribution  in  terms  of  the 
tangent  of  the  local  angle  of  attack  of  the  camberline  for  a wing  root 
chord  angle  of  attack  of  zero  degrees.  The  function  of  the  index  NUNI 
is  explained  below, 

ALPHAL(J)  tan  a.  of  the  wing  camberline  at  the  constant  u-velocity 

panel  control  points.  If  NUNI  * 1,  only  data  for  the 
chordwise  row  adjacent  to  the  root  chord  are  input. 

The  first  value  is  for  the  control  point  nearest  the 
leading  edge.  If  NUNI  = 0,  data  for  all  chordwise 
rows  must  be  input  starting  nearest  the  root  chord  and 
working  outboard.  Data  for  each  row  start  on  a new 
card  (omit  if  NTAC  = 0) 

The  constant  u-velocity  panel  control  points  are  at  95  percent  of  the  chord 
which  passes  through  the  centroid  of  area  (see  fig.  2,  ref.  1)  of  each 
elemental  panel  laid  out  by  NCW,  MSW,  and  the  Y ( I ) 's  of  items  13  and  14. 

The  values  of  ALPHAL(J)  are  obtained  as  follows.  Consider  the 
following  sketch 
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which  shows  the  cambered  and  twisted  section  of  the  lifting  surface  at  some 
spanwise  station  for  zero  wing  angle  of  attack.  At  the  control  point  P, 
a tangent  to  the  camberline  is  constructed,  which  makes  an  angle  a ^ with 
the  root  chord  (the  xw  axis).  The  positive  sense  of  a ^ is  shown.  The 
input  value  required  is  ALPHAL(J)  = tan  a^.  For  wings  which  have  the 
same  camber  distribution  at  all  spanwise  stations  and  no  twist,  NUNI  * 1, 
data  are  only  input  for  the  row  of  control  points  closest  to  the  root  chord. 
The  program  assigns  these  values  to  all  other  rows. 

The  two  indices  of  Item  number  17  (item  21,  ref.  3)  are  associated  with 
the  specification  of  the  wing  thickness  distribution.  They  are 

NCWS  number  of  thickness  panels  in  a chordwise  row  on  the 

wing;  NCWS*MSW  + NCPS*MSP  g 400 

NUNIS  if  wing  has  a similar  thickness  distribution  at  all 

spanwise  stations,  NUNIS  =1;  if  not,  NUNIS  = 0 

A total  of  400  thickness  panels  can  be  used  on  the  wing  and  pylon.  The 
thickness  panels  are  also  trapezoidal  in  shape.  The  span  of  each  chordwise 
strip  is  the  same  as  the  corresponding  row  of  constant  u-velocity  panels. 
Each  of  these  chordwise  strips  is  divided  into  NCWS  equal  chord  panels. 
Usually  more  thickness  panels  should  be  used  in  a chordwise  row  than 
u-velocity  panels.  Experience  with  the  program  has  shown  12  to  14  thickness 
panels  usually  to  be  sufficient.  Again,  this  can  only  be  checked  by  varying 
the  number  and  examining  the  resulting  store  load  distributions.  The  mini- 
mum number,  consistent  with  the  desired  accuracy,  should  be  used  to  minimize 
the  trajectory  calculation  time. 

The  data  contained  in  item  number  18  are 

THETAL(J)  slope  of  the  wing  thickness  distribution  at  the 
centroid  of  area  of  the  thickness  panels.  If 
NUNIS  = 1 only  data  for  the  chordwise  row 
adjacent  to  the  root  chord  are  input.  The  first 
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value  is  for  the  panel  at  the  leading  edge.  If 
NUNIS  = 0,  data  for  all  chordwise  rows  must  be 
input  starting  at  the  root  chord  and  working 
outboard.  Data  for  each  row  start  on  a new  card. 


Note  that  the  values  of  the  thickness  slopes  are  input  for  the  centroid  of 
area  of  each  panel.  Also,  for  wings  with  similar  distributions  at  all 
spanwise  stations,  NUNIS  = 1,  data  are  only  input  for  the  row  of  panels 
adjacent  to  the  root  chord.  The  program  assigns  these  values  to  all  other 
rows . 


The  values  of  THETAL(J)  are  obtained  as  follows.  Consider  the 
following  sketch 


Thickness 
enve lope 


Mean  camber 
surface 


Tangent  to  thickness 
envelope  at  point  P 


which  shows  the  thickness  envelope  at  a spanwise  station  where  the  slopes 
are  to  be  determined.  At  a point  P at  which  the  slope  is  required,  a 
tangent  to  the  surface  of  the  thickness  envelope  is  constructed  which  makes 
an  angle  9 with  the  line  connecting  the  leading  and  trailing  edges  of  the 
envelope.  The  input  value  required  is  THETAL(J)  = tan  6.  Forward  of  the 
point  of  maximum  thickness  9 is  positive  and  aft  of  this  point  it  is 
negative.  In  some  cases  for  a wing  with  a blunt  leading  edge,  the  thick- 
ness slope  should  not  exceed  a certain  value.  The  determination  of  this 
value  is  discussed  in  detail  in  section  3.4.1  of  reference  1. 

The  next  five  items  of  input  data,  items  19  through  23,  are  associated 
with  the  pylon  if  one  is  present,  NPY  = 1.  Item  number  19  (item  23,  ref.  3) 
consists  of  one  card  and  contains  the  following  quantities 

IP  index  of  the  yw  location  of  the  pylon.  This  must 

be  one  of  the  Y(I)'s  read  in  for  the  wing,  item  14, 
if  under  the  wing.  If  pylon  is  under  the  fuselage 
centerline,  IP  = 0. 

PSIPLE  sweep  angle  of  the  pylon  leading  edge  in  the  wing 

coordinate  system,  degrees.  Positive  sweep  is 
swept  back . 


PS I PTE  sweep  angle  of  the  pylon  trailing  edge  in  the 

wing  coordinate  system,  degrees.  Positive  sweep 
is  swept  back. 


19 


CRP  length  of  pylon  root  chord,  feet 

HP  height  of  pylon  measured  from  wing  chordal 

plane  , feet 

XPLE  location  of  pylon  root  chord  leading  edge 

measured  from  local  wing  chord  leading  edge, 
feet  (negative  behind) 

The  pylon  location  can  be  under  the  fuselage,  IP  = 0,  or  at  one  of  the 
wing-panel  side-edge  locations  outboard  of  the  wing-fuselage  juncture.  The 
remaining  five  items  are  shown  in  figure  8 for  the  two  cases. 

The  next  two  items  of  input  data  are  associated  with  the  constant 

u-velocity  panels  which  represent  the  pylon  loading.  Item  number  20  (item 

24,  ref.  3)  is  one  card  and  contains 

NCP  number  of  panels  in  a chordwise  row  on  the  pylon 

MSP  number  of  panels  in  a spanwise  row  on  pylon;  also 

number  of  thickness  strips  in  a spanwise  row  on  the 
pylon;  MSP  19 

For  a typical  pylon,  two  or  three  vortices  in  a spanwise  row  are  sufficient, 
MSP  = 2 or  3.  The  number  chordwise,  NCP,  depends  on  the  length  of  the 
pylon  root  chord.  The  chordwise  dimensions  of  the  trapezoidal  shaped  area 
elements  on  the  pylon  should  be  approximately  the  same  as  those  on  the  wing 
immediately  above  the  pylon.  That  is,  the  local  wing  chord  length  divided 
by  NCW  of  item  13  should  be  approximately  equal  to  the  pylon  root  chord 
length  divided  by  NCP. 

The  program  is  limited  to  200  constant  u-velocity  panels  on  the  wing- 
pylon-  fuselage  combination.  Thus, 

NCWB* (NBDCR1  + NBDCR2)  + NCW*MSW  + NCP*MSP  £ 200 

Item  number  21  (item  25,  ref.  3)  consists  of  a deck  of  MSP+1  cards 
which  contain  the  following  information 

K pylon-panel  side-edge  number;  K = 1 to  MSP+1 

Z(K)  z location  of  the  Kt^'  side  edge,  feet;  measured 

from  local  wing  chord 

The  first  side  edge  should  be  placed  on  the  pylon  root  chord  and  the  last 
on  the  tip  chord.  The  remaining  side  edges  should  be  equally  spaced 
between  these  two.  For  a pylon  located  under  the  fuselage,  figure  8(a), 

Z(l)  should  be  the  zw  location  of  the  pylon  root  chord,  the  bottom  of  the 
fuselage,  and  Z (MSP+1)  should  equal  Z(l)  + HP.  For  a pylon  under  the 
wing,  Z(l)  =■  0 and  Z(MSP+1)  = HP. 
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Items  22  and  23  provide  data  required  to  model  the  pylon  thickness 
distribution.  The  data  are 


number  of  thickness  panels  in  a chordwise  row  on 
the  pylon 

if  pylon  has  a similar  thickness  distribution 
at  all  spanwise  stations,  NUNIP  =1;  if  not, 
NUNIP  = 0 


NCPS 


NUNIP 


slope  of  the  pylon  thickness  distribution  at 
the  centroids  of  the  thickness  panels.  If 
NUNIP  = 1 only  data  for  the  chordwise  row 
adjacent  to  the  root  chord  are  input.  The 
first  value  is  for  the  panel  at  the  leading 
edge.  If  NUNIP  = 0,  data  for  all  chordwise 
rows  must  be  input  starting  at  the  root  chord 
and  working  outboard.  Data  for  each  row  start 
on  a new  card. 


THETPL(J) 


These  data  are  prepared  in  the  same  manner  as  were  the  corresponding  data 
for  the  wing  thickness,  items  17  and  18.  The  comments  made  there  concerning 
a blunt  leading  edge  also  apply  to  the  pylon. 


The  program  is  limited  to  400  thickness  panels  on  the  wing-pylon 
combination.  Thus, 


NCWS*MSW  + NCPS*MSP  £ 400 


If  no  store  is  present,  NSTRS  of  item  4 is  equal  to  zero,  this 
concludes  the  input  data  deck.  If  NSTRS  is  not  zero,  then  the  next  five 
items  of  input  data  describe  the  store  to  be  separated.  The  store  to  be 
separated  must  be  under  the  fuselage  centerline  or  to  the  left  of  this 
line  as  seen  by  the  pilot. 

Item  number  24  (item  32,  ref.  3)  is  one  card  which  contains  the 
following  information. 


NUMSTR  ( 1) 


store  number 


NSHAPE(l)  shape  number  of  store j £ 99 


length  of  store,  feet 


SLTHC  ( 1) 


maximum  radius  of  store,  feet 


location  of  store  nose  measured  from  wing 
chord  leading  edge  immediately  above  store, 
feet;  positive  ahead 


XSNC  ( 1) 


location  of  store  nose  measured  from  fuselage 
centerline,  feet;  positive  to  the  right 


location  oi  store  nose  measured  from  wing 
chord  leading  edge  immediately  above  store, 
feet;  positive  below 


store  incidence  angle  measured  relative 
root  chord,  degrees;  positive  nose  up 


The  subscripted  form  of  the  above  variables  is  not  required  since  the  present 
program  is  limited  to  one  store.  It  is  used  in  anticipation  of  a future 
version  of  the  program  treating  multiple  stores. 


tern  number  25  is  one  card  which  contains 


number  of  different  values  of  NSHAPE(J)  from 
item  number  24;  since  J is  limited  to  one 
NSHPT  is  input  as  NSHPT  = 1 


NSHPT 


Item  number  26  is  one  card.  The  data  are 


shape  number  of  store  represented  by  the  shape 
data  to  be  read  in  as  item  numbers  27,  28,  and 
29;  input  as  MS HA PE  = NSHAPE(l)  which  was  input 
in  item  number  24 


MSHAPE 


number  of  line  sources  and  line  doublets  to  be 
used  to  model  the  store  volume  and  angle  of 
attack  effects;  MSOR  £ 100 


MSOR 


A value  of  MSOR  of  30  to  40  should  be  sufficient  to  model  the  store.  The 
value  can  be  varied  to  determine  whether  increasing  the  number  affects 
the  trajectory. 


The  next  three  items  of  input  data,  item  numbers  27 
specify  the  store  shape.  They  are 


number  of  polynomials  specifying  store  shape 
1 £ NSPOLJ  ^ 7 

x/Jl  of  end  points  of  polynomials  specifying 
store  shape;  NSPOLJ  values 


NSPOLJ 


SXNDJ(J) 


SCOFJ (J ,K)  coefficients  of  polynomials  specifying  shape 


These  data  specify  the  radius  distribution  of  the  store  and  are  used  in 
the  calculation  of  the  source-sink  distribution  which  represents  the  store 
volume  and  the  doublet  distribution  which  represents  the  store  angle  of 
attack  effects.  Up  to  seven  polynomials  may  be  used.  The  polynomial 
programmed  is  given  by  equation  (2).  The  polynomials  must  be  input  for  a 
shape  which  is  made  dimensionless  by  the  store  length  since  the  trajectory 
program  is  written  assuming  this  to  be  the  case. 


Item  27  specifies  the  number  of  polynomials.  Item  28  consists  of  one 
card  which  contains  the  NSPOLJ  values  of  the  end  points  of  the  polynomials 
describing  the  shape. 

Item  number  29  is  a set  of  NSPOLJ  cards  specifying  the  values  of  the 
coefficients  of  the  polynomials,  equation  (2).  All  seven  coefficients  are 
input  even  though  some  of  them  may  be  zero. 

The  remainder  of  the  input  data  deck  is  additional  data  required  to 
describe  the  store  being  separated  and  other  data  required  for  the  force 
and  moment  and  trajectory  calculations. 

Item  number  30  is  one  card  which  contains  nine  indices.  They  are 

NEJECT  number  of  the  store  being  separated 

NSEG  number  of  equal  length  segments  the  body  is  to  be 

broken  into  for  the  force  calculation;  NSEG  40 

NSEGXO  number  of  body  segments  to  the  flow  separation 
location 

NGAM  trajectory  to  simulate  wind-tunnel  captive-store 

trajectory?  NGAM  = 0,  no 
NGAM  = 1,  yes 

NPOLY  number  of  polynomials  specifying  store  shape; 

1 NPOLY  ^ 7 

NROLL  rolling  moment  to  be  calculated? 

NROLL  = 0,  no 
NROLL  = 1,  yes 

NEMP  empennage  present? 

NEMP  = 0,  no 
NEMP  = 1,  yes 

NDAMP  damping  to  be  included  in  force  calculation? 

NDAMP  = 0,  no 
NDAMP  = 1 , yes 

NTHRUS  thrust  time  history  to  be  specified? 

NTHRUS  = 0,  no 
NTHRUS  = 1,  yes 

The  index  NEJECT  must  be  the  store  number  that  was  read  into  NUMSTR(l)  in 
item  24;  that  is,  NEJECT  = NUMSTR(l). 

In  the  store  body  force  and  moment  calculation,  the  body  is  divided 
into  NSEG  equal  length  segments.  Experience  in  using  the  program  has 
shown  that  20  body  segments,  NSEG  = 20,  usually  yields  converged  forces 
and  moments.  This  can  only  be  checked  for  a specific  case  by  varying  NSEG 
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and  comparing  results.  To  minimize  calculation  time  NSEG  should  be  kept 
as  small  as  possible. 

No  definite  rules  for  the  selection  of  a value  of  NSEGXO  can  be  gj  ;en. 
For  stores  with  cylindrical  afterbodies  NSEGXO  should  probably  be  input  as 
NSEG.  For  stores  with  boattailed  afterbodies  NSEGXO  should  probably  be 
less  than  NSEG.  In  the  subsonic  store  separation  program,  reference  3,  an 
empirical  relationship  was  given  for  estimating  the  flow  separation  location 
for  boattailed  bodies.  This  relationship  was  obtained  from  data  taken  at 
low  subsonic  speeds  and  is,  therefore,  probably  not  valid  at  supersonic 
speeds.  In  using  the  present  program  NSEGXO  should  be  set  equal  to  NSEG 
unless  experimental  data  are  available  for  determining  the  separation 
location . 

The  index  NGAM  is  included  as  input  solely  for  the  purpose  of  allowing 
the  program  to  be  used  to  compare  with  captive  store  data  obtained  in  the 
wind  tunnel.  Since  the  wind  tunnel  cannot  produce  a flow  where  the  store 
sees  a free-stream  velocity  coming  from  a different  direction  than  that 
seen  by  the  parent  aircraft  the  captive  store  case  must  be  handled  differ- 
ently by  the  computer  program. 

The  number  of  polynomials  specifying  the  store  shape,  NPOLY,  is  the 
number  required  to  specify  the  shape  from  the  store  nose  to  its  base.  These 
polynomials  are  used  in  the  force  and  moment  calculation.  The  polynomials 
are  of  the  form  given  by  equation  (2).  The  value  of  NPOLY  should  be  equal 
to  the  value  of  NSPOLJ  read  in  under  item  27. 

The  next  index,  NROLL , indicates  whether  or  not  the  rolling  moment 
for  a store  with  an  empennage  is  to  be  calculated.  NEMP  specifies  whether 
there  is  an  empennage.  The  index,  NDAMP,  is  used  by  the  program  to  deter- 
mine whether  or  not  aerodynamic  damping  in  pitch,  yaw,  and  roll  is  to  be 
included  in  the  force  and  moment  calculation.  The  last  index,  NTHRUS , 
specifies  whether  a thrust  time  history  is  to  be  read  in. 

Item  number  31  (item  38,  ref.  3)  is  one  card  and  specifies  the  store 
mass  and  inertia  characteristics.  The  quantities  are 

SMASS  store  mass,  slugs 

FIXX  I moment  of  inertia,  slug-ft2 
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FIYY 

I 

moment  of  inertia,  slug-ftc 

yy 

FIZZ 

Xzz 

moment  of  inertia,  slug-ft^ 

FI  YZ 

i 

yz 

product  of  inertia,  slug-ft 

FIXZ 

Jxz 

product  of  inertia,  slug-ft 

FIXY 

Ixy 

product  of  inertia,  slug-ft 

The  equations  defining  the  moments  and  products  of  inertia  are  given  by 
equation  (11-36)  of  Appendix  II  of  reference  4. 

The  one  card  of  item  number  32  (item  39,  ref.  3)  contains 

XMOM  location  along  store  axis  about  which  the  pitching 


location  along  store  axis  about  which  the  pitching 
and  yawing  moments  are  to  be  taken,  negative  behind 
nose,  feet;  same  point  about  which  moments  of  inertia 
are  taken 


x location  of  store  c.g.  measured  from  moment  center, 
feet;  positive  forward 


y location  of  store  c.g.  measured  from  store  axis, 
feet;  positive  to  the  right 


z location  of  store  c.g.  measured  from  store  axis, 
feet;  positive  below 


The  next  two  items  of  input,  items  33  and  34  (items  40  and  41,  ref.  3 
describe  the  shape  of  the  separated  store.  The  quantities  contained  on 
the  cards  are 


XEND(J)  x/i  of  end  points  of  polynomials  specifying  shape 
of  ejected  store,  NPOLY  values 


COEF(J,K)  coefficients  of  polynomials  specifying  shape 
These  data  are  a repeat  of  the  data  input  as  items  28  and  29. 

Item  number  35  (item  42,  ref.  3)  contains  two  quantities  which  are 
CA  store  axial-force  coefficient;  reference  area  is  store 


store  axial-force  coefficient;  reference  area  is  store 
maximum  cross-sectional  area 


crossflow-drag  coefficient 


The  store  axial-force  coefficient  is  not  calculated  by  the  computer  program 
so  it  is  required  input.  The  crossflow-drag  coefficient  is  used  in  the 
viscous  crossflow  force  and  moment  calculation  which  is  used  in  place  of 
the  slender-body  calculation  behind  the  assumed  separation  location.  It 
is  defined  as  the  section  drag  coefficient  of  a circular  cylinder  normal 
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to  the  airstream.  That  is 


CDC  = c = draq  Per  unit  length 
dc 


where  q^  is  the  free-stream  dynamic  pressure  and  r is  the  cylinder 
radius.  The  value  commonly  used  for  this  parameter  is  1.2.  If  a more 
accurate  value  is  desired,  reference  7 should  be  esed.  The  crossflow-drag 
coefficient  is  presented  there  as  a function  of  crossflow  Mach  number  and 
Reynolds  number. 

The  next  two  items  of  input  data  are  included  in  the  input  data  deck 
if  an  empennage  is  present,  NEMP  =1  in  item  30.  Item  36  (item  43,  ref.  3) 
contains 

IPLNR  IPLNR  = 0,  cruciform  empennage 

IPLNR  = 1,  planar  empennage 

MSF  number  of  spanwise  control  points  on  each  fin; 

must  be  odd  and  5 MSF  11 

It  should  be  noted  that  MSF  must  be  odd  and  in  the  range  5 MSF  £ 11. 

For  most  stores,  MSF  = 5 has  been  found  to  give  accurate  results.  The 
larger  the  fin  span  to  body  radius  ratio,  the  more  points  required. 

The  next  card,  item  number  37  (item  44,  ref,  3)  contains 


XTAIL  x location  at  which  empennage  forces  are  to  act 

measured  from  store  nose,  feet;  negative  number 

RADAV  average  store  body  radius  in  empennage  region, 

feet;  positive  number 

FINSS  tail  fin  semispan,  measured  from  body  longitudinal 

axis,  feet;  positive  number 

PHIROL  initial  fin  orientation,  degrees;  0 PHIROL  £ 90; 

PHIROL  = 0 if  fins  vertical  and  horizontal  for  a 
cruciform  empennage  or  horizontal  for  a planar 
empennage . 

CLALPH  lift-curve  slope  of  two  exposed  panels  joined 
together,  per  radian;  reference  area  is  store 
maximum  cross-sectional  area 


The  location  at  which  the  empennage  forces  are  assumed  to  act,  XTAIL,  is 
arbitrary.  It  can  be  estimated  using  Chart  10  of  reference  8.  The  lift- 
curve  slope,  CLALPH,  can  be  estimated  using  the  method  described  in 
Appendix  II. 
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The  next  three  items  of  input  data,  item  numbers  38,  39,  and  40.  are 
included  in  the  input  data  deck  if  a thrust  time  history  is  to  be  specified, 
NTHRUS  = 1,  in  item  30.  The  input  quantities  are 

NTPOLY  number  of  polynomials  specifying  thrust  time  history; 

1 £ NTPOLY  < 5 

TEND ( J ) final  times  over  which  the  NTPOLY  polynomials  apply 

TC(J,K)  coefficients  of  the  polynomials 

The  thrust  force  as  programmed  acts  along  the  store  longitudinal  axis 
and  is  specified  by  a series  of  polynomials  of  the, form 


6 


k=l 


(4) 


where  F^,  is  the  thrust  force  in  pounds.  Up  to  five  polynomials  can  be 
used  to  specify  the  time  history  and  item  38  contains  the  number  of  poly- 
nomials, NTPOLY.  Item  39  is  one  card  and  contains  the  NTPOLY  values  of 
the  final  time  t over  which  each  of  the  polynomials  applies.  That  is, 
the  first  polynomial  is  used  from  t = 0 to  t = TEND ( 1 ) , the  second  from 
t = TEND ( 1 ) to  t = TEND ( 2 ) , and  so  on.  Item  40  is  a set  of  NTPOLY  cards 

which  specify  the  six  a^  coefficients,  TC(J,K),  for  the  polynomials. 

Item  number  41  (item  45 , ref.  3)  is  one  card  which  contains  the  initial 
velocities  of  the  store  relative  to  the  parent  aircraft  such  as  might  exist 

at  the  end  of  the  ejection  stroke  of  a store  released  from  a pylon  or  rack. 

The  six  quantities  are 


VXZERO 

VYZERO 

VZZERO 

VAR (4) 
VAR (5) 
VAR (6) 


store  forward  ejection  velocity  parallel  to  store 
longitudinal  axis,  ft/sec 

store  lateral  ejection  velocity  perpendicular  to 
store  longitudinal  axis,  ft/sec 

store  downward  ejection  velocity  perpendicular  to 
store  longitudinal  axis,  ft/sec 

store  initial  rolling  rate,  p,  radians/sec 

store  initial  pitching  rate,  q,  radians/sec 

store  initial  yawing  rate,  r,  radians/sec 


i 


4 


J 

j , 


I ' 
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At  the  beginning  of  the  trajectory,  the  end  of  the  stroke,  the  store  is 
oriented  such  that  its  y-axis  is  parallel  to  the  yB  fuselage  axis  shown 
in  figure  5.  Thus  the  x,z  store  plane  is  parallel  to  the  XB>ZB  fuse- 
lage plane  and  the  initial  vertical  translational  velocity  of  the  s tore , 
VZZERO,  is  in  the  x,z  store  plane  perpendicular  to  the  store  x-axis. 

The  velocities  VXZERO  VYZERO , and  VZZERO  are  positive  in  the  positive 
x,y,and  z directions. 

The  next  card,  item  number  42  (item  46,  ref.  3)  contains  three  items. 
They  are: 

DT1ME  integration  interval , seconds 

TIMEI  initial  time,  seconds 

TIMEF  final  time , seconds 

The  first,  DTIME , is  the  integration  interval  to  be  used  in  the  integration 
subroutine,  ADAMS.  The  version  of  this  routine  which  is  included  in  the 
present  program  does  not  adjust  this  interval  to  satisfy  certain  accuracy 
requirements  but  uses  the  input  value  of  DTIME.  A value  of  0.025  or  0.01 
seconds  should  probably  work.  However,  different  values  should  be  tried 
and  the  trajectory  results  compared  to  determine  that  a small  enough  value 
is  being  used.  Finned  stores  probably  require  a smaller  value  than  finless 
stores  because  of  the  large  moments  produced  by  the  empennage.  The  initial 
time,  TIMEI,  must  be  input  as  0.0  unless  a trajectory  is  to  be  restarted 
using  the  last  page  of  output  from  a previous  run  to  obtain  the  initial 
conditions.  Then,  TIMEI  should  be  given  the  value  that  appears  on  that 
page  of  output.  The  final  time,  TIMEF,  is  the  time  at  which  the  trajectory 
calculation  is  to  be  terminated.  Except  for  very  unusual  trajectories,  a 
value  of  0.5  to  0.7  second  is  normally  sufficient  to  determine  if  a store 
will  or  will  not  clear  the  aircraft. 

If  TIMEI  and  TIMEF  are  both  input  as  zero,  no  trajectory  calculation 
will  be  performed.  However,  the  store  load  distributions  and  forces  and 
moments  will  be  calculated  with  the  store  in  its  initial  position.  This 
feature  can  be  useful  in  checking  out  the  entire  input  data  deck  prior  to 
running  a trajectory  or  for  studying  store  loadings  at  specific  points. 

The  last  item  of  input,  item  number  43  (item  47,  ref.  3)  is  input  only 
if  a trajectory  is  being  restarted,  TIMEI  / 0.  This  item  consists  of  two 
cards  with  VAR(l)  through  VAR(8)  on  the  first  card  and  VAR^9)  through  VAR(12) 
on  the  second.  The  following  table  gives  the  notation  used  to  identify 
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VAR ( 1 ) through  VAR(12)  on  the  trajectory  program  output  which  will  be 
discussed  in  section  3.3. 


Program  Notation 

VAR ( 1 ) 

VAR (2) 

VAR (3) 

VAR (4) 

VAR (5) 

VAR (6) 

VAR ( 7 ) 

VAR (8) 

VAR (9) 

VAR (10) 

VAR (11) 

VAR (12) 


Output  Notation 

DXF , ft/sec 
DYF , ft/s ec 
DZF , ft/sec 

P,  radians/sec 

Q,  radians/sec 

R,  radians/sec 
XF  of  XMOM , ft 
YF  of  XMOM,  ft 
ZF  of  XMOM,  ft 
PS1 , degrees 
THETA,  degrees 
PHI,  degrees 


3.2.2  Sample  input  data 

A sample  input  data  deck  will  now  be  presented.  It  will  utilize  the 
wind  tunnel  model  components  shown  in  figure  9 except  that  they  have  been 
scaled  up  by  a factor  of  twenty  in  order  to  approximate  a full-scale  air- 
craft and  store.  The  models  were  used  in  the  wind  tunnel  test  program 
described  in  reference  9. 


The  configuration  for  the  sample  calculation  is  shown  in  figure  10. 

It  consists  of  the  wing- fuselage  combination  of  figure  9(a) , the  pylon  of 
figure  9 (b) , and  the  store  of  figure  9 (c) . The  store  is  shown  in  its 
initial  position  which  is  one  store  body  radius  below  the  carriage  position 
on  the  pylon. 

The  input  data  deck  is  tabulated  in  figure  11.  The  item  numbers 
indicated  on  the  figure  correspond  to  those  of  figure  3.  The  first  item 
on  figure  11  is  item  number  1 which  contains  the  value  of  N CARDS , in  this 
case  12.  This  is  followed  by  item  number  2,  which  consists  of  these  12 
cards  of  identifying  information. 

Item  number  3 specifies  the  aircraft  flight  conditions.  The  angle  of 
attack  is  2.0°,  the  flight  path  angle  is  -30.0°,  and  the  Mach  number  is 
1.5.  The  free-stream  air  density  is  0.0008907  slugs  per  cubic  foot,  which 
corresponds  to  a flight  altitude  of  30,000  feet.  The  flight  velocity  is 
1,492.0  feet  per  second. 

The  aircraft  components  which  are  present  are  specified  by  item  4. 
There  is  a circular  fuselage,  NFU  * 1;  there  is  a pylon,  NPY  = 1;  and 
there  is  a store,  NSTRS  ■ 1. 
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Items  5 through  10  are  the  fuselage  input  data.  Item  5 contains  the 
fuselage  length  and  maximum  radius  which  are  shown  in  figure  10.  Items  6, 

7,  and  8 contain  the  data  for  the  polynomials  specifying  the  fuselage 
shape.  The  fuselage  radius  distribution,  made  dimensionless  by  the  fuse- 
lage length  is  tabulated  in  figure  9(a).  Three  polynomials,  item  6,  are 
required.  The  nose  is  a circular  arc  and  ends  at  x/i  =0.32,  the  center- 
body  is  a cylinder  ending  at  x/i  = 0.7534,  and  the  aft  position  is  a 
circular  arc  ending  at  x/1  = 1.0.  These  three  values  of  x/f  are  contained 
in  item  7. 


The  next  three  cards,  item  8,  contain  the  coefficients  of  the  poly- 
nomials for  the  three  sections  (see  eq.  (2) ) . The  nose  section  is  a cir- 
cular arc  so  that  when  the  following  boundary  conditions  are  imposed 


7 ° 0,32 

1 = °-32 

the  equation  of  a circle  gives 


0 


j = 0.0457 


dr 

dx 


0 


r_ 

£ 


-1.0975  + 


V-(?)a  ♦ 0.64(f)  + 


1.2045 


(5) 


The  cylindrical  section  runs  from  x/f  = 0.32  to  x/£  = 0.7534  and  in 
this  region 


•f  = 0.0457 

fj 


(6) 


The  last  section  is  also  a circular  arc.  By  imposing  the  following  three 
boundary  conditions 
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Equations  (5),  (6),  and  (7)  are  the  three  polynomials  describing  the  shape 
of  the  fuselage  and  the  coefficients  are  contained  in  the  three  cards 
making  up  item  8. 

Item  number  9 contains  four  indices.  The  first  three  specify  the 
constant  u-velocity  panel  layout  on  the  fuselage  and  the  last  specifies 
the  number  of  line  sources  and  line  doublets  to  be  used  to  represent  the 
fuselage  volume  and  angle  of  attack  effects.  Twelve  (12)  rings  of  panels 
are  to  be  laid  out  on  the  fuselage  with  eight  in  each  ring.  Since  this 
is  a mid-wing  configuration,  four  panels  in  each  ring  are  to  be  placed 
above  the  wing  and  four  below.  The  number  of  sources  and  doublets  to  be 
used  is  52. 

Item  number  10  specifies  the  fuselage  length  over  which  the  constant 
u-velocity  panels  are  to  be  laid  out.  Since,  in  this  case,  the  wing  trailing 
edge  is  supersonic  and  no  rearward  motion  of  the  store  is  expected,  BODYPL 
is  input  as  the  length  of  the  wing  root  chord  shown  in  figure  10. 

The  next  eight  items,  items  11  through  18,  are  the  wing  input  data. 

Item  11  gives  the  position  of  the  wing  root  chord  leading  edge  relative  to 
the  fuselage  and  item  12  specifies  the  root  chord  length  and  the  semispan. 
These  quantities  are  shown  in  figure  10.  Items  13  and  14  are  data  required 
by  the  program  to  lay  out  the  constant  u-velocity  panels.  There  are  to  be 
12  panels  in  each  chordwise  row  and  8 of  these  rows  across  the  semispan. 

This  requires  that  the  spanwise  locations  on  the  left  wing  panel  of  nine 
side  edges  and  the  sweep  angles  to  the  right  of  these  points  be  specified. 
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These  data  are  contained  on  the  nine  cards  of  item  14.  Note  that  the  first 
side  edge  coincides  with  the  wing- fuselage  juncture.  Item  15  indicates 
that  the  wing  has  neither  twist  nor  camber,  and  thus  item  16  is  omitted 
from  the  input  data  deck.  Items  17  and  18  specify  the  wing  thickness 
distribution.  The  two  indices  on  item  17  indicate  that  20  thickness  panels 
are  to  be  placed  in  a chordwise  row  and  that  the  wing  has  a similar  thick- 
ness distribution  at  all  spanwise  stations.  Consequently,  item  18  consists 
of  three  cards  with  the  20  values  of  the  slope  of  the  thickness  distribution. 
The  airfoil  section  specification  is  shown  in  figure  9 (a) . The  wing 
leading  edge  in  this  case  is  subsonic.  The  maximum  value  of  the  slope  has 
been  selected  in  accordance  with  the  discussion  in  section  3.4  of  refer- 
ence 1. 

Since  there  is  a pylon,  items  19  through  23  are  input  and  contain  the 
pylon  data.  The  pylon  is  the  one  shown  in  figure  9(b) , except  that  it  has 
been  scaled  up  by  a factor  of  20.  Item  19  of  the  input  data  specifies  that 
the  pylon  is  located  below  wing-panel  side-edge  number  3 (IP  3)  , the 
leading-edge  and  trailing-edge  sweep  angles  are  0.0°,  the  root  chord  length 
is  4.43  feet,  the  height  is  1.65  feet,  and  the  leading  edge  is  2.51  feet 
behind  the  local  wing  chord  leading  edge  (see  fig.  10).  Items  20  and  21 
are  the  pylon  constant  u-velocity  panel  data.  There  are  to  be  four  panels 
in  a chordwise  row  and  two  of  these  rows  spanwise.  The  three  side  edge 
locations  are  given  by  item  21.  Items  22  and  23  specify  the  pylon  thickness 
distribution.  There  are  to  be  9 thickness  panels  in  a chordwise  row  and 
the  thickness  distribution  is  similar  at  all  spanwise  stations. 

Item  24  begins  the  store  data.  The  store  is  shown  in  figure  9(c)  but 
has  been  scaled  up  by  a factor  of  twenty.  Item  24  contains  the  number 
assigned  the  store  and  its  shape  number.  The  next  five  quantities  in 
this  item  are  the  store  length,  maximum  radius,  and  location  of  the  store 
nose.  This  information  is  shown  in  figure  10.  The  last  number  is  the 
store  incidence  angle  which,  in  this  case,  is  0.0°. 

Item  number  25  contains  the  value  of  NSHPT.  In  the  present  version  of 
this  program  this  variable  must  be  input  as  NSHPT  = 1.  Items  26  through  29 
contain  the  shape  data  for  the  store.  Item  26  contains  the  value  of  MS HA PE , 
which  must  be  equal  to  the  value  of  NSHAPE(l)  read  in  as  part  of  item  24. 

It  also  specifies  the  number  of  line  sources  and  line  doublets  to  be  used 
for  the  store. 
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Items  27  through  29  contain  the  data  specifying  the  store  shape. 

The  body  shape  shown  in  figure  9(c)  is  defined  by  two  polynomials.  The 
first  is  a circular  arc  representing  the  nose  which  ends  at 
x/i  = 1.5/6.375  = 0.2353.  The  second  is  one  which  specifies  a constant 
radius,  r/f  = 0.05882,  to  the  base  of  the  store,  x/i  = 1.0.  Item  28  con- 
tains the  end  points  and  item  29  contains  the  coefficients  of  the  polynom- 
ials (see  eq.(2)).  The  coefficients  are  determined  in  the  manner  previously 
described  for  the  fuselage. 


Item  30  contains  nine  indices  which  indicate  the  following.  Store 
number  10,  NEJECT  =10,  is  the  store  being  separated  and  the  body  is  to 
be  broken  into  20  segments,  NSEG  = 20,  for  the  force  and  moment  calculation 
with  flow  separation  occurring  at  the  base  of  the  store,  NSEGXO  =20.  In 
addition,  a free-flight  trajectory  is  to  be  calculated,  NGAM  = 0;  two 
polynomials  are  to  be  input  describing  the  body  shape,  NPOLY  = 2;  rolling 
moment  is  to  be  calculated,  NROLL  = 1;  the  store  has  an  empennage,  NEMP = 1 ; 
aerodynamic  damping  is  to  be  included,  NDAMP  = 1;  and  a thrust  time  history 
is  to  be  specified,  NTHRUS  = 1. 


Item  31  contains  the  mass  and  inertia  characteristics  of  the  separated 
store.  The  particular  numbers  used  in  this  example  have  been  assigned 
and  have  not  been  determined  by  specifying  a density  distribution  of  the 
store  and  performing  the  required  integrations.  Item  32  specifies  that 
the  inertia  characteristics  are  assumed  to  have  been  calculated  about  a 
point  7.4  feet  behind  the  store  nose  and  that  the  store  center  of  gravity 
is  not  offset  from  this  point. 


Items  33  and  34  contain  the  end  points  and  coefficients  of  the  poly 
nomials  describing  the  store  shape.  These  data  must  be  identical  to  the 
data  read  in  as  items  28  and  29. 


The  store  axial  force  coefficient,  0.65,  and  crossflow  drag  coeffi- 
cient, 0.0,  are  input  in  item  35.  A crossflow  drag  coefficient  is  not  used 
in  this  example  since  flow  separation  is  not  assumed  to  occur  ahead  of  the 
store  base. 


Items  36  and  37  are  data  describing  the  store  empennage.  Item  36 
specifies  a cruciform  empennage  and  five  control  points  on  each  tail  panel. 
Item  37  indicates  that  the  empennage  forces  act  9.558  feet  behind  the  store 
nose,  the  body  radius  in  the  fin  region  is  0.625  feet,  the  fin  semispan  is 
1.45833  feet,  the  initial  fin  orientation  is  45°  from  the  vertical  and 
horizontal,  and  the  lift-curve  slope  is  3.491.  The  fin  details  are  obtained 
from  figure  9(c)  and  scaled  up  by  a factor  of  20. 


Items  38,  39,  and  40  specify  the  thrust  time  history.  Two  polynomials 
of  the  type  given  by  equation  (4)  are  to  be  specified.  Item  39  indicates 
that  the  first  polynomial  will  apply  from  t = 0 seconds  to  t = 0.2 
seconds  and  the  second  from  t = 0.2  seconds  to  t = 1.0  second.  Item  40 
contains  the  coefficients  of  the  polynomials.  The  first  polynomial  is  a 
constant  thrust  of  1,500  pounds.  The  second  polynomial  starts  with  this 
value  at  t = 0.2  seconds  and  allows  the  thrust  to  linearly  decrease  to 
zero  at  t = 1.0  second. 

Item  41  specifies  initial  axial  and  lateral  translational  velocities 
of  the  store  of  0 feet  per  second,  an  initial  downward  translational  veloc- 
ity of  10  feet  per  second,  and  initial  rotational  velocities  of  0.0  radians 
per  second. 

The  last  card  on  input,  item  42,  provides  the  integration  interval 
and  the  initial  and  final  times.  Since  the  initial  time  is  0.0,  item  43 
is  not  included. 

3.3  Output  from  the  Program 

Figure  12  presents  the  output  from  the  computer  program  for  the  sample 
case,  the  configuration  of  figure  10,  and  the  data  deck  of  figure  11. 

The  first  page  of  output,  figure  12(a),  tabulates  the  input  identi- 
fying information,  the  aircraft  flight  conditions,  and  the  fuselage  input 
data.  Near  the  bottom  of  the  page,  a tabulation  of  the  fuselage  shape,  as 
calculated  from  the  input  polynomials  specifying  the  shape,  and  the  source 
and  doublet  singularity  origins  and  strengths  begins.  This  tabulation  is 
continued  on  the  next  page , figure  12 (b) . 

Figure  12(c)  , 12(d)  , and  12(e)  tabulate  most  of  the  wing  and  pylon 
input  data.  Figure  12(c)  tabulates  the  wing  data  exclusive  of  the  twist 
and  camber  and  thickness  distributions.  Figure  12(d)  tabulates  the  pylon 
data  except  for  the  thickness  distribution.  The  input  thickness  distri- 
butions for  the  wing  and  pylon  are  tabulated  in  figure  12  (e) . 

Figure  12(f)  tabulates  the  input  data  for  the  store.  Following  this, 
a tabulation  of  the  store  shape,  as  calculated  from  the  input  polynomials, 
and  the  source  and  doublet  singularity  origins  and  strengths  is  presented. 

The  next  four  pages  of  output,  figure  12(g)  through  figure  12  (j), 
tabulate  quantities  associated  with  the  constant  u-velocity  panel  layout 
on  the  wing,  pylon,  and  fuselage  and  the  boundary  condition  at  the  control 


points  of  these  panels.  The  x,y,z  coordinates  are  those  of  the  control 
points  in  the  wing  coordinate  system.  The  next  three  columns,  U/VINF, 
V/VINF,  and  W/VINF,  are  the  sums  of  the  dimensionless  perturbation  veloc- 
ities in  the  x ,y  ,and  z directions,  respectively,  induced  at  the  control 
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points  by  the  other  aircraft  components.  These  include  fuselage  and  store 
on  the  wing  and  pylon,  wing  thickness  on  pylon,  pylon  thickness  on  wing, 
both  wing  and  pylon  thickness  on  the  fuselage,  and  store  on  fuselage. 

VINF  is  the  free-stream  velocity.  The  next  to  last  column  tabulates  the 
twist  and  camber  distribution  input  for  the  wing.  The  last  column  tabu- 
lates the  singularity  strengths  of  the  constant  u-velocity  panels  laid 
out  on  the  wing,  pylon,  and  fuselage. 


Page  11  of  the  output,  figure  12 (k),  indicates  the  number  of  the  store 
separated  and  tabulates  the  additional  data  which  were  read  in  to  describe 
this  store. 


The  last  three  parts  of  figure  12,  parts  (1) , (m) , and  (n) , are  output 
for  three  points  in  the  trajectory,  the  first  point,  an  intermediate  point, 
and  the  point  at  which  the  trajectory  is  terminated.  The  complete  output 
from  the  program  will  contain  a page  like  this  for  each  integration  step, 
in  this  case  every  0.025  seconds. 


At  the  top  of  each  page  is  the  trajectory  time  in  seconds.  Following 
this,  the  forces  and  moments,  components  as  well  as  totals,  and  the  body 
load  distributions  and  the  velocity  distributions  along  the  store  axis 
from  which  these  load  distributions  were  calculated  are  listed.  The  load 
distributions  are  the  sums  of  those  due  to  buoyancy,  slender  body,  and 
viscous  crossflow.  The  velocity  field  calculation  is  discussed  in  detail 
in  sections  3.4  of  reference  1 and  5.1  of  reference  4 and  the  force  and 
moment  calculation  in  sections  5.2  and  5.3  of  reference  4. 


The  following  table  relates  the  program  output  variables  to  the  x 
coordinate  system  and  positive  directions  shown  ir,  figure  13. 


Notation  of  figure  13 


Program  Notation 


Program  Notation 
X , FT 

X/L 

DCN/DX 

DCY/DX 

U/VS 

V/VS 

W/VS 


Notation 


x .feet 
s ’ 

XsAs 

dCN/dXs 

dCY/dxs 
U At 

a S 

V /V„ 


W /V 
s °°s 


of  figure 


,per  foot 
,per  foot 
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As  the  store  pitches,  yaws,  and  rolls  during  the  trajectory,  the  *s,ys,zs 
coordinate  system  pitches,  yaws,  and  rolls  with  it.  The  velocities  and 
forces  are  always  calculated  in  this  coordinate  system. 

The  remaining  quantities  tabulated  on  each  page  of  trajectory  output 
specify  the  store  location,  orientation,  velocities,  and  accelerations 
relative  to  the  parent  aircraft  at  that  particular  time.  Before  discussing 
these  quantities,  the  coordinate  systems  must  be  mentioned.  Figure  13 
shows  another  coordinate  system,  x,  y,  and  z,  which  is  fixed  in  the  store 
and  moves  with  the  store  as  it  yaws,  pitches,  and  rolls.  The  origin  of 
this  system  is  fixed  at  the  store  moment  center.  This  coordinate  system 
is  also  shown  in  figure  14  along  with  another  system,  £,r),£.  This  latter 
system  is  an  inertial  coordinate  system  whose  origin  is  fixed  in  the  fuse- 
lage nose  and  is  parallel  to  the  XQ>yQ>ZQ  system  of  figure  5.  At  any 
point  in  time,  the  two  coordinate  systems  are  orientated  with  respect  to 
each  other  by  a system  of  angles.  The  angles  are  those  shown  in  figure  14 
and  consist  of  three  rotations  in  the  yaw,  ¥,  pitch,  9,  and  roll,  $ , 
sequence.  The  positive  senses  of  the  three  store  rotational  velocities 
about  the  x,y,z  axes  are  also  shown  in  the  figure. 

Following  the  load  and  velocity  distribution  output  on,  for  example, 
figure  12 (m)  , the  location  of  the  store  in  the  fuselage,  or  inertial, 
coordinate  system  is  tabulated.  The  locations  of  the  store  nose,  NOSE, 
moment  center,  XMOM,  and  base,  BASE,  are  tabulated  relative  to  the  fuselage 
nose  and  also  relative  to  the  position  of  the  store  at  time  t = 0.  In 
this  tabulation  XF  is  x0  of  figure  5 or  £ of  figure  14.  Likewise, 

YF  is  yB  or  tj  and  ZF  is  z^  or  £. 


The  next  output  are  the  translational  velocities  and  accelerations  of 
the  store  relative  to  the  moving  aircraft.  For  example, 


DXF  = ~dt  °r  dt  * ft/s6C 


D2XF  = 


— or  ^ ^ , ft/sec2 


Next  the  rotational  velocities  shown  in  figure  14  are  listed  as  are  the 
rotational  accelerations.  The  notation  is 

P = p,  radians/sec 


Q = q,  radians/sec 
R = r,  radians/sec 

PDOT  = , radians/sec£ 


QDOT  = , radians/sec2 


RDOT  = — , radians/sec2 


The  last  output  printed  at  each  integration  step  are  the  values  of 
the  three  orientation  angles  shown  in  figure  14  and  their  time  rates  of 
change.  The  notation  is 


PSI  = W,  deg. 
THETA  = 0,  deg. 
PHI  * <t> , deg. 


7T  > radians/sec 


DTHETA  = — , radians/sec 


DPHI  = , radians/sec 
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As  the  yaw  angle,  1,  and/or  the  pitch  angle,  0,  increase  in  magnitude^  the 
velocity  field  which  is  used  in  the  store  force  and  moment  calculation 
may  not  be  calculated  along  the  store  longitudinal  axis.  This  is  the 
case  when  all  or  a portion  of  the  store  lies  in  the  region  where  the  veloc 
ity  field  is  smoothed  as  described  is  section  3.4.2  of  reference  1.  The 
velocity  field  to  be  smoothed  is  calculated  by  making  an  axial  traverse 
parallel  to  the  fuselage  longitudinal  axis  at  the  yB>zB  location  of  the 
store  center  of  gravity.  When  ¥ and  0 are  zero  the  store  axis  lies 
along  this  traverse.  As  the  angles  increase  in  magnitude,  this  is  no 
longer  the  case.  Except  for  an  extremely  long  store,  sufficiently  accu- 
rate velocity  fields  are  calculated  up  to  angles  of  _+  10  degrees. 


4.  PROGRAM  ERROR  MESSAGES 


The  possible  occurrence  of  certain  fatal  errors  during  program  execu- 
tion has  been  anticipated  in  the  store  separation  trajectory  program.  If 
such  an  error  should  occur,  the  program  has  been  designed  to  print  a diag- 
nostic error  message  and  then  halt.  Each  message  with  the  routine  in  which 
the  corresponding  error  is  detected  is  presented  in  the  following  table. 

The  table  is  arranged  in  alphabetical  order  by  the  first  word  of  the  message 


Routine 


at  base  of  body  radial  distance  to  Mach  cone 
emanating  from  body  nose  is  less  than  maximum 
body  radius;  check  body  input  data  and  Mach 
number 


BDYGEN 


axial  location  of  traverse  above  wing  chordal 
plane 


NUMACH 


matrix  is  singular 


INVERS 


no  negative  velocity  due  to  wing  thickness  found 
in  traverse  to  trail ing-edge  Mach  cone 


NUMACH 


NSTRS  input  as  (n  > 1) ; program  limited  to 
one  store 


STORIO  shape  polynomials  not  input  for  all  stores 


WITHIN 


row 


time  greater  than  end  of  specified  thrust  time 
history 


THRCAL 


If  one  of  the  above  messages  is  printed  out  during  program  execution,  the 
user  should  examine  the  input  data  for  possible  error. 


5.  PROGRAM  RUNNING  TIMES 

The  program  described  in  this  report  has  been  run  on  the  CDC  6600. 
Because  of  machine  differences,  the  running  time  varies  from  one  machine  to 
the  other.  As  a consequence,  only  an  approximate  running  time  can  be  given. 

The  running  time  of  the  trajectory  program  is  a function  of  a number 
of  factors,  some  of  which  are 

(a)  Number  of  sources  and  doublets  required  to  represent 

the  bodies 

(b)  Number  of  constant  u-velocity  panels  on  wing,  pylon, 

and  fuselage 

(c)  Number  of  thickness  panels  on  wing  and  pylon 

(d)  Number  of  body  segments  and  tail  fin  control  points  used 

in  force  and  moment  calculation 

(e)  Integration  interval 

(f)  Real  time  duration  of  trajectory 

All  of  the  above  should  be  kept  to  a minimum  except  (e)  which  should  be  as 
large  as  possible.  For  the  sample  trajectory  which  was  presented,  the 
running  time  was  about  5 minutes  on  the  CDC  6600. 
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TABLE  I 


f*9lMMnn 


Subroutine 

Name 

ADAMS 

BDYGEN 

BLYOUT 

CEL1 

CEL2 

DIRCOS 

DOUBLT 

DPCOEF 

DPRHS 

ELI1 

ELI2 

FLSQFY 

FUSEIO 

INTOST 

INVERS 

NUMACH 


SUBROUTINES  USED  IN  COMPUTER  PROGRAM 


Function 


numerical  integration  routine  to  integrate  differential 
equations 

calculates  line  sources  and  doublets  to  give  a required 
body  shape  and  angle  of  attack 

lays  out  fuselage  constant  u-velocity  panels 

calculates  complete  elliptic  integral  of  the  first  kind 

calculates  complete  elliptic  integral  of  the  second  kind 

calculates  direction  cosines  between  inertial  and  store 
body  coordinate  systems 

calculates  the  strength  of  a linear  line  doublet 

calculates  coefficient  matrix  of  the  set  of  equations  to 
be  solved  for  the  wing-pylon- fuselage  constant  u-veloc- 
ity  panel  strengths 

calculates  right-hand  side  of  the  set  of  equations  to  be 
solved  for  the  wing-pylon- fuselage  constant  u-velocity 
panel  strengths 

calculates  generalized  elliptic  integral  of  the  first 
kind 

calculates  generalized  elliptic  integral  of  the  second 
kind 

calculates  least  squares  polynomial  approximation  of 
specified  degree  to  a given  set  of  data  points 

reads  and  prints  fuselage  data  and  calls  BDYGEN  to 
calculate  line  source  and  doublet  distributions 

transforms  a vector  with  components  in  the  inertial 
coordinate  system  to  one  with  component  in  the  store 
body  coordinate  system 

solves  a system  of  simultaneous  linear  algebraic 
equations 

calculates  the  local  Mach  number  to  be  used  in  calculat- 
ing the  wing- fuselage  induced  velocities,  calculates 
these  velocities  and  calls  FLSQFY  to  perform  a least 
squares  smoothing 


TABLE  I.-  (CONT.  ) 


reads  and  prints  pylon  data  and  lays  out  constant  u-veloc 
ity  panels  on  pylon 


PLYOUT 


reads  pylon  thickness  data 


PYTHIN 


calculates  velocities  induced  at  a field  point  by  all 
aircraft  components 


forces  and  moments 


SEMFOR 


initializes  for  empennage  force  and  moment  calculation 


SEMPIN 


calculates  the  store-body  forces  and  moments 


calculates  radius  and  surface  slope  at  a point  on  a body 
from  input  polynomials 

performs  a Simpson  rule  integration 


SIMSON 


prints  forces,  moments,  load  distributions,  and  trajec 
tory  data  at  the  end  of  each  integration  step 


SOUTPT 


reads  and  prints  store  data  and  calls  BDYGEN 
late  line  source  and  doublet  distributions 


STORIO 


transforms  a vector  with  components  in  the  store  body 
coordinate  system  to  one  with  components  in  the  inertial 
coordinate  system 


STTOIN 


reads  and  prints  wing  constant  u-velocity  panel  data  and 
twist  and  camber  data,  if  any 


SWNGIN 


lays  out  wing  and  pylon  thickness  panels 


prints  wing  and  pylon  thickness  input  data 


THKOUT 


calculates  thrust  from  input  polynomials 


THRCAL 


VELBD 


calculates  velocities  at  a field  point  due  to  fuselage 
or  store  line  sources  and  doublets 


VELCAL 


VELO 


calculates  the  influence  of  a semi-infini 
associated  with  a thickness  source  panel 


VELOTH 


calculates  velocities  or  influence  functions  due  to 
pylon  constant  u-velocity  panels  or  panel 


VELPP 


TABLE  I.-  (CONC.) 


VELPTH  calculates  velocities  at  a field  point  due  to  pylon 

thickness  source  panels 


VELWP 

VELWTH 

WTHIN 

WLYOUT 


calculates  velocities  or  influence  functions  due  to  wing 
constant  u-velocity  panels  or  panel 

calculates  velocities  at  a field  point  due  to  wing 
thickness  source  panels 

reads  wing  thickness  data 

lays  out  constant  u-velocity  panels  on  wing 


1 
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START 


Define 

constants 


Pylon 


Call  PLYOVT 
to  input 
pylon  data 
and  layout 


Read  and 
print 
heading 


Read  and 
print 
aircraft 
flight 
conditions 


Call  PYTHIN1 
to  input 
pylon  thick- 
ness data 


Read  indices 
specifying 
aircraft 
components 
k present 


Call  THKOUT’ 
to  output 
thickness 
data 


:all  THKLYT 
to  lay  out 
thickness 
panels 


Fuselage 


FUSEIO  to 
read  and 
print 
fuselage 


rail  BLYOirr' 
to  lay  out 
fuselage 
panels  / 


data 


Read 

wing 

location 


Call  SWING11 
to  input 
wing  data 


fcall  STORIcA 
to  input  and) 
print  data  j 
k for  store/ 


(Call  WLYOtTT 
to  lay  out 
sing  panels 


Call  WITHIN 
to  input 
wing 

thickness 


Figure  2.-  General  flow  chart  of  trajectory  program. 


Locate 
store  in 
fuselage 
coordinate 
system 


Thrust 


/Call  DPCGEF  \ 
to  calculate  \ 
■velocity  panel 
coefficient  > 
i matrix  / 


Read  and 
print  thrust 
time  history 


f Call  DPRHS  > 
to  calculate 
right-hand 
sides  of 
^equations  y 


f Read  initial 
translational 
and 

rotational 
\ velocities  . 


Call  INVERS 
to  solve  for 
singularity 
strengths 


Calculate 
initial  values 
of  12  dependent 
variables 


'Print  panel 
data  and 
singularity 
. strengths 


Calculate 
reference 
positions  of 
store  nose, 
c.g.  t base 


Read  initial 
and  final 
times  and 
integration 
k interval 


/ Read  and  \ 
'print  additional 
data  describing 

V store  to  be 

ejected  / 


Initial' 
time  * 0 


other 

quantities 

describing 


'Read  initial 
values  of  12 
dependent 
. variables 


Empennage 


/ Call  ADAMS\ 
*' to  initialize' 

\ integration  > 
w routine  / 


Read  and 
print 
empennaqe 
data 


f Call  sempin  \ 
to  initialize 
empennage 
force 

wcalculat Ion  / 


(b)  Paqe  2. 
Figure  2.-  Continued, 


Add  inertia 
terms  to 

right-hand  sides 
of  rotational 
equations 


Empennage 


Call  INVERS 
to  solve  for 
translational 
rotational 
^accelerat  ion s 


'Ca  1 1 i HkFOR  , 
to  calculate 
empennage 
forces  and 
v moments  y 


Calculate 
rates  of 
change  of 
orientation 


/Call  INTOST  \ 
to  calculate 
translational 
velocities  in 
. store  axis 


system 


'Cali  ;>t pens' 
to  calculate 
free  flight 
direction 
. cosines  . 


Call  SOUTPT 
to  print 
trajectory 


equal  final 


Call  ADAMS 
to  perform 
integratior 


Calculate 
aerodynamic 
moment  terms 


Add  c.g.  offset 


(c)  Page  3. 
Figure  2.-  Concluded, 


Calculate 
right-hand 
sides  of 
ranslational 
equation;  no 
c.g.  offset 


Add  in 
empennage 
forces  and 
moments 


Figure  3.-  Trajectory  program  input  format. 


Item  No.  9 (1  card.  Omit  if  NFU“0) 
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Figure  3.-  Continued 


to  MS P+1 ; MS P+1  cards.  Omit  if  NPY 


Figure  3.-  Continued 
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Simplified  layout  of  panels  for  wing-pylon  and  fuselage  combination. 
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Item  No. 
1 


SAhPlE  TK»Jf  i inn  Calculation 

AIKCWAFT  and  STQHt  ape  SCALED  IIP  vE»S1uns  Uf  "(JOELS  USED  I x eapenIhenIal 
PmUGNah  CONDUCTED  IN  CONJUNCTION  >11(1  T«IS  »U»a 
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Figure  12.-  Trajectory  program  output  for  sample  case 


, ' 


3rM'V*3^r'*3 


Kr«^o^CJ>«N«  4 3 O » >W  ' 
3 M\|  «K  < 
-<  O i%  3 » 3 -0«J  £>0  9 O ® » r 


*W  « «OMV« 

— « *~  — — o 

•^  -»  •«  » a » o 

v 3 ^ c o a 3 

m o o o i/t  •>  • 


3 3 3 » f 


j m -•  ~*  <x>  trt  »o  • 


■ ^ k»  «v  N ••  - « »«®  ■ 


4i4>Ua»-JliMt<«lt<dldi4iMlt<UijJij4).Mai>tl4jltJat<UJi>llltilUlti4ll*J>ttltiW4(di4Mti3ldiltlW>kll«< 

i"  a •e»o»*ao  - »-oi/'of\<9«>''i>-  «r^oaofxir»»o»^^^®«or-  B-*^^3«f«^-i(v 
99  3-»0«®«'\iiT®»'\<«33'^'Mr'J'^3K»K  • « O » •«  3 >•  w«  A^A'X^AO^SOff 
0K3^4(M0irrw/«^iie^lriM-»0-13M««3»«J'»»«3*Nf-»  ® — 9 O -•  f-  «MO- 
SiT  O ^ /I  3'\J'*3'M^y'»/l»  3 3^»  « -1  • * - (V  O «*-->*  3 #■'•  f O l<*  ® » 
3 » • j>  & »j  & <r  o />  k rf'  «oirnjo«<ox^h  *»i  a 


3 r?  m 4 3^^W'V-»-»»K«tn3  ^iVfV  - 9»  « ^ ® t'  3 » — — *V  "X  O 


«»,M'VI/>»3Xt»93SKK«|/t33i«l<\t'<'<O»®KK«/t33rt,Vf'^irni90'«OC®'*t®« 
SjeKOB/rf>i/l(|^rfl/KB^K\'/lKa-l<(il««ON3fl®0^3^3-<03K3»K^rtor 
»«®  K » 3 09  O «t  « a a 9 9 3iP/tiT/nr«««««NNKNN«eoi<\oOMC«N^00<«^^ 
® f-  — f-  ^ Q r-  3 3 — ® <S»  tv  O 9 9 0<M3-«^  3 IT  « ff 

— OO  r»  >\4  .*»  3 « K » -1^  3 4)  « 3 >••*13  3«  3 »Kltfl  ««  — ar- 


3 C 3 0><3ll'ir0^'0000c0000000000000000003 

•*13  il  3 ■*l«urt  3 or^aooooooooooooooooooooooocinKixVK  « 3 M «»  m *n 
»3»<V(l/'C«3K000000000000300000000  O O C « C A 

«3mx3»'«3ni'«OOOOOOOOOOOOOOOOOOOOOOOOx«A3r«NC30»(\i 

— * ~*  — — OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO  — — -• 

CJOOOC/OOOOOOOOOOOOOOOOOO*  I I 3 • 3 3 3 3 3 3 3 • 


-*>  *\»  9 *-  <>  i/i«i/ioi/>jii/'i#ii/>3»iri/>1ri/'i/'ir/'i/'/>iriri/'ififiri/<irrf*3^^^*^*-  ® « x>  -m  » 
7 o ^ ® 3 '•o<nc«c«c«a«a«flssc»0C0c«a«c«ir333  3 r-<w«e**i 
3'M^Jl*»0(M3«OOCOOOOOOOOOOOOOOOOOOOO«><33rv3303^33K 
tn  9 o 9 e oirt  — « >*i  3 :»•— 

<C  o :»  .n  ® *-  « £ ir  9 ^ o-  « 


yi3-WMI\i-O3«CK«rf'lT3^fMIM^O3IO0h  « M 
>*1  IT  f'  3 — *Ti  0 ® O ^ 3 0 • O -M  3 0«O>*I*1|/\K3- 
Mv.»MiM«M^I\irMM«A^Hlr*l33  a 9 3 rfl  IT  l/>  IT />  i/l  4 
30>>lON3-«/l<V3  0^or<3>-®Jl'V3  O >*1  3 *•  : 
-**li'r'®0fti^/»^«0*ii3i/i^30N3i/iK3  — • *\J  : 


i3-i'W*n>*o3®®r-  ♦«T»T>3**»rx*\»—  o 
>i»h3  '••*)4i«eaiH3  «®onj9««o 
)333^^^K^®0®®®33 333 O 
■ o ir  'n  » 0 i*i  o k a — ® *r  *vj  C3  «i*ior>  i/i 


09 


I 3 < 


102 


Figure  12.-  Continued. 


Figure  12.-  Continued. 
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Figure  12.-  Jontinued. 
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Figure  12,-  Concluded. 


APPENDIX  I 


DETAILS  OF  STORE  SEPARATION 
TRAJECTORY  PROGRAM 


I - 1 . I NTRODUCTI ON 

The  purpose  of  this  appendix  is  to  provide  more  detailed  information 
on  the  store  separation  trajectory  program  which  was  described  in  section  2 . 
A listing  of  the  program  was  presented  in  figure  1 and  a general  flow  chart 
in  figure  2.  This  appendix  will  present  a cross-reference  chart  showing 
the  subroutines  and  the  common  statements  contained  in  each,  a schematic 
description  of  the  subroutine  calling  sequence , more  detailed  flow  charts, 
and  tables  equating  the  program  notation  to  the  algebraic  notation.  The 
program  consists  of  a main  program  and  42  subroutines.  The  main  program 
will  first  be  described  and  then  the  subroutines  will  be  described  in  alpha- 
betical order.  The  subroutines  and  their  functions  were  listed  in  Table  I. 

The  cross-reference  chart  showing  the  subroutines  and  the  common 
statements  contained  in  each  is  presented  in  figure  1-1.  Across  the  top 
of  the  chart  are  the  subroutine  names  including  the  main  program  SSTORE. 
Down  the  side  of  the  page  are  the  common  names.  The  last  one  is  blank 
common.  The  schematic  showing  the  subroutine  calling  sequence  is  presented 
in  figure  1-2. 


1-2 . MAIN  PROGRAM 

The  first  two  pages  of  the  flow  chart  which  was  presented  in  figure  2 


are  quite  complete  and  will  therefore  not  be  expanded  in  this  appendix. 

Using  those  pages,  the  description  in  section  3.1,  the  input  data  discussion 
in  section  3.2,  and  the  dictionary  of  notation  in  Table  1-1,  there  should 
be  sufficient  information  to  understand  the  flow  of  the  program. 


The  last  page  of  the  flow  chart  of  figure  2 has  been  expanded  and  is 
presented  in  figure  1-3.  This  portion  of  the  program  begins  with  FORTRAN 
statement  62  of  the  main  program  (fig.  1(c)),  and  is  the  integration  loop 
of  the  program.  The  first  step  in  the  loop  is  to  call  subroutine  SFORCE 
to  calculate  the  aerodynamic  forces  and  moments  acting  on  the  store  body. 

If  the  store  has  an  empennage  then  subroutine  SEMFOR  is  called  to  calculate 
the  empennage  forces  and  moments. 


The  next  portion  of  the  program  solves  for  the  translational  and 
rotational  accelerations . The  set  of  six  simultaneous  equations  which  are 
solved  are  given  in  Appendix  IX  of  reference  4,  equations  (11-16)  through 
(11-18)  and  (11-41)  through  (11-43).  The  coefficient  matrix  and  right- 
hand  side  are  stored  in  the  FVN  array.  The  first  subscript  of  FVN  is  the 
equation  number.  The  correspondence  is 


Subscript 

Value 

1 

2 

3 

4 

5 

6 


Equation 

Number 

11-16 

11-17 

11-18 

11-41 

11-42 

11-43 


The  second  subscript  of  FVN  is  the  term  in  the  equation.  Here  the  corre- 
spondence is 


Subscript 

Value 

Term 

1 

i 

2 

n 

3 

C 

4 

p 

5 

q 

6 

r 

7 

Right-Hand 

Side 

example,  FVN (3, 5) 

is  the  coefficient  of 

q in  equation  (11-18) 

Certain  parts  of  this  section  of  the  program  are  bypassed  if  the  store 
center  of  gravity,  c.g.,  lies  on  the  store  moment  center.  If  this  is  the 
case,  x,y  and  z are  zero  and  NASYM  equals  zero. 

After  calculating  the  coefficient  matrix  and  right-hand  side  of  the 
set  of  equations,  subroutine  INVERS  is  called  to  solve  for  the  accelerations 
and  the  values  are  transferred  to  the  UVAR  array.  The  next  steps  of  the 
program  put  the  values  of  £,r),  and  £ into  the  DVAR  array  and  calculate 
the  values  of  and  4>,  which  are  also  put  in  the  DVAR  array.  The  DVAR 

array  contains 
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DVAR(l)  \ 
DVAR (2 ) ij 
DVAR ( 3 ) C 
DVAR (4)  p 
DVAR (5)  4 
DVAR (6)  r 
DVAR (7)  X 
DVAR  (8)  f) 
DVAR (9)  £ 
DVAR (10)  V 
DVAR (11)  6 
DVAR (12)  4 


These  are  the  derivatives  of  the  twelve  dependent  variables. 

The  program  next  checks  to  see  if  the  integration  procedure  has 
reached  the  end  of  an  integration  step.  If  it  has  NOUT  = 1 and  subrou- 
tine SOUTPT  is  called  to  print  the  output.  Next  a check  is  made  to  see 
if  the  end  of  the  trajectory  has  been  reached,  that  is,  is  the  current 
value  of  the  time  equal  to  the  final  time  which  was  input.  If  it  is  then 
the  program  transfers  to  the  first  input  statement  and  attempts  to  read 
another  set  of  input  data.  If  the  end  has  not  been  reached,  then  the 
integration  routine,  subroutine  ADAMS,  is  called. 

NDIFEQ  is  a control  index  used  by  subroutine  ADAMS.  If  NDIFEQ  = 1 
upon  returning  to  the  main  program, an  error  condition  has  been  encountered 
in  ADAMS,  the  calculation  is  to  be  terminated,  and  the  next  set  of  input 
data  is  to  be  read.  If  2 NDIFEQ  £ 7,  the  program  is  at  some  intermediate 
point  in  the  integration  from  one  point  to  the  next.  When  NDIFEQ  > 7, 
the  integration  of  one  step  has  been  completed  and  NOUT  is  set  equal  to 
1 so  that  the  output  subroutine  will  be  called  after  the  derivatives  are 
calculated . 

1-3.  SUBROUTINE  ADAMS 

Subroutine  ADAMS  is  the  subroutine  which  integrates  the  set  of  differ- 
ential equations.  The  subroutine  will  not  be  described  in  detail,  however, 
an  examination  of  the  flow  chart  (fig.  1-4)  and  the  program  listing 
(fig.  1(d))  will  indicate  how  it  functions.  All  returns  from  the  sub- 
routine are  to  the  main  program. 


Consider  the  following  set  of  n differential  equations: 


*i  = fi(t,yi,y2,...,yn) 


yn  = fn(t*yi»y*’--*’yn) 


This  subroutine  uses  a fourth-order  Adams  predictor-corrector  method 

(ref.  10)  to  solve  the  above  set  of  equations.  To  find  the  value  of  y. 

th  * 

at  the  (J  + 4)  step,  the  following  formula  is  used  to  predict  the  value 

'$+4  ■ yi,j«  ♦ 3,h, j+1  - 9*i.j) 


This  assumes  that  all  of  the  J^'s  are  known  for  the  j,  (j  + 1)  , (j  + 2)  , 
and  (j  + 3)  steps.  The  quantity  h is  the  interval  in  the  independent 
variable  between  these  points.  After  the  values  of  the  y f . have  been 


found,  the  following  equation  is  used  to  obtain  the  corrected  values: 


yi.j44  - yi,j+s  + + l95,i,j+=  - 5h,j«  + » 


7-Vi,j+3  Jyi,j+2 


i , j+i) 


(1-2) 


The  use  of  the  above  equations  requires  that  four  evenly  spaced  values 
of  the  dependent  variables  be  known.  These  are  found  in  this  subroutine 
by  means  of  a fourth-order  Runge-Kutta  method  (ref.  10) . To  find  the 
values  of  the  y^ 1 s at  the  (j  + l)*"'1  step,  the  following  equation  is  used: 


i,j+.  -n.i  + 2*i,s  +ki,.) 


where 


Thus,  given  initial  values  of  the  dependent  variables,  the  y.'s,  the 
independent  variable,  t,  and  the  integration  interval  size,  h,  the  differ- 
ential equations  are  integrated  three  steps  using  equations  (1-3)  and  (1-4) 
At  this  point,  the  integration  is  continued  using  equations  (X-l)  and  (1-2) 


A discussion  of  both  the  Adams  and  Runge-Kutta  methods  is  presented 
in  reference  10.  From  this  reference,  the  truncation  error,  Ay,  at  a 
given  step  can  be  shown  to  be 


so  that  the  absolute  error  is 


At  the  end  of  each  integration  step,  error  tests  could  be  performed  and  the 
integration  interval,  h,  adjusted  accordingly.  This  procedure  is  described 
in  the  flow  chart  (fig.  1-4) . In  the  present  version  of  the  program, 


however,  a fixed  interval  size  is  used  and  no  attempt  is  made  to  satisfy 
error  specifications. 


The  quantities  in  the  parameter  list  are: 

H current  value  of  the  integration  interval 

DS  integration  interval 

Y array  containing  current  values  of  the  dependent 

variables 

DY  array  containing  current  values  of  the  derivatives 

of  the  dependent  variables 

NEQ  number  of  equations  being  integrated;  routine 

dimensioned  for  a maximum  of  12 

NDIFEQ  control  index 

S current  value  of  independent  variable 


1-4.  SUBROUTINE  BDYGEN 

Subroutine  BDYGEN  calculates  the  line  source  and  doublet  strengths 
using  control  points  on  the  surface  of  the  fuselage  and  store.  The 
method  used  is  described  in  Appendix  I of  reference  1.  A listing  of 
the  subroutine  is  presented  in  figure  l(e  ) , a flow  chart  in  figure  1-5, 
and  a table  equating  the  algebraic  and  program  notation  in  Table  1-2  of 
this  report.  The  variables  appearing  in  the  subroutine  parameter  list  are 
included  in  this  table.  The  coordinate  system  associated  with  the  sub- 
routine is  shown  in  the  sketches  of  Appendix  I of  reference  1. 

At  the  beginning  of  the  subroutine  a test  is  performed  to  determine 
if,  at  the  base  of  the  body,  the  radial  distance  to  the  Mach  cone  emanating 
from  the  body  nose  is  less  than  the  maximum  radius  of  the  body.  If  so,  an 
error  message  is  printed  out  (see  section  4 of  this  report)  and  the  program 
stops . 

Next,  as  the  flow  chart  indicates,  N is  set  equal  to  NXBODY  - 1 and 
the  body  axis  is  divided  into  N segments  of  equal  length.  The  x loca- 
tions of  the  body  definition  points,  XBODY(J),  are  determined  at  these 
equally  spaced  axis  points  and,  inside  a short  DO  loop,  subroutine 
SHAPE  is  called  to  calculate  the  radius  of  the  body,  RBODY , and  the  sur- 
face slope,  RPBODY,  at  each  body  definition  point.  Subroutine  SHAPE 
requires  that  the  shape  definition  quantities  be  made  dimensionless  by 
body  length.  Subroutine  BDYGEN  accounts  for  this  before  and  after  the 
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calls  to  subroutine  SHAPE.  Next,  the  control  points  are  located  effec- 
tively midway  between  the  body  definition  points.  Subroutine  SHAPE  cal- 
culates the  body  radius,  RF,  and  the  surface  slope,  DRDX , at  each  control 
point.  Finally,  the  axis  points,  TX,  which  are  the  origins  of  the  conical 
line  sources  and  doublets,  are  determined. 

The  next  section  of  the  subroutine  is  a routine  for  dropping  control 
points  that  are  located  outside  the  Mach  cone  emanating  from  the  body  nose. 
The  routine  is  a loop  in  which  the  first  control  point  is  tested.  If  it 
is  found  to  be  outside  the  Mach  cone,  the  second  body  definition  point  is 
dropped  and  a new  first  control  point  is  determined  as  described  above. 

The  remaining  control  points  and  conical  line  source  and  doublet  origins 
are  redefined  so  that  the  second  point  of  each  set  is  dropped.  The  loop 
is  repeated  until  a control  point  is  found  within  the  nose  Mach  cone. 

The  remainder  of  the  subroutine  calculates  the  source  and  doublet 

strengths  at  the  control  points.  Subroutine  SOURCE  is  called  and  the 

source  strength  at  the  first  control  point  is  calculated  using  equation 

(1-14)  and  at  the  remaining  control  points  using  equation  (1-17)  of  ref- 

th 

erence  1.  One  should  note  that  the  I source  strength,  T(I) , is  the  • 

constant  *-n  the  algebraic  notation  of  the  equations.  Similarly, 

using  subroutine  DOUBLT,  the  doublet  strengths  are  calculated  using 

equation  (1-27)  for  the  first  control  point  and  equation  (1-28)  for  the 

remaining  control  points.  Here,  the  I doublet  strength,  TC(I),  equals 

K,  T 
d ,I-i 

After  calculating  the  source  and  doublet  strengths,  the  subroutine 
prints  the  body  definition  point  data,  the  singularity  origins,  and  the 
singularity  strengths. 


1-5.  SUBROUTINE  BLYOUT 

Subroutine  BLYOUT  calculates  quantities  needed  to  define  the  constant 
u-velocity  panels  on  the  fuselage  and  to  locate  the  panel  control  points. 
The  corner  and  control  point  coordinates  calculated  for  the  body  panels  are 
stored  in  arrays  in  locations  which  follow  the  same  quantities  calculated 
for  the  wing  and  pylon  constant  u-velocity  panels.  All  coordinates  are  in 
the  wing  coordinate  system  which  is  shown  in  figure  6 of  this  report.  A 
listing  of  the  subroutine  is  presented  in  figure  1(  f),  a flow  chart  in 
figure  1-6,  and  a table  equating  algebraic  and  program  notations  in 
Table  1-3. 


THTS 


THTI 


ZBWO 


ANGW 


The  fuselage  interference  panels  are  laid  out  on  the  left-half  of  the 
fuselage  surface,  as  shown  in  figure  4.  The  panel  numbering  convention 
employed  in  a typical  ring  containing  five  panels,  three  above  the  wing 
and  two  below,  is  shown  in  the  following  sketch. 


Wing 


At  the  beginning  of  the  subroutine  quantities  DX,  NBD,  NBIP,  and 
ANGW,  associated  with  the  geometry  of  the  entire  panel  layout,  are 
calculated.  Next,  the  variable  ANGW  is  tested  to  determine  if  the  wing 
is  tangent  to  the  fuselage,  either  at  the  top  or  at  the  bottom.  As  the 
flow  chart  shows,  this  tangency  condition  determines  the  initialization 
procedure  performed  before  the  main  loop  calculations . 

The  main  part  of  the  subroutine  is  a double  DO  loop  with  the  outer 
loop  index  running  over  the  rows  above  or  below  the  wing  and  the  inner 
loop  index  over  the  NCWB  panels  in  a lengthwise  row.  If  the  wing  is  not 
tangent,  this  double  loop  is  performed  first  for  the  panels  above  the 
wing,  then  repeated  for  the  panels  below  the  wing. 

For  a given  lengthwise  row  the  y,z  coordinates  of  the  panel  corners 
and  the  control  points  are  first  obtained  in  the  panel  coordinate  system. 
The  following  sketch  shows  the  coordinate  system  and  certain  quantities 
associated  with  a panel  located  above  the  wing  . 


ith  body  panel 


Wing 


Within  the  inner  DO  loop  the  coordinates  are  transformed  into  the  wing 
coordinate  system  and  stored  in  appropriate  array  locations.  Polar  angle, 
THTI  and  quantities  SNT2  and  CST2  , necessary  for  panel-wing  transfor- 
mations, are  saved  in  arrays  for  subsequent  use  by  other  routines.  The 
corner  and  control  point  xw  coordinates  are  calculated  and  stored;  no 
transformations  are  necessary  for  these  quantities. 

The  convention  employed  in  labeling  the  corner  coordinates  for  the 
fuselage  interference  panels  is  that  the  right  side  of  the  panel  is  located 
in  clockwise  rotation  from  the  left  side,  when  looking  forward. 

1-6.  SUBROUTINE  CEL1 

Subroutine  CEL1  calculates  the  complete  elliptic  integral  of  the 
first  kind.  This  subroutine  has  been  taken  directly  from  reference  11. 

For  a description  of  the  routine  that  reference  should  be  consulted.  A 
listing  of  the  routine  is  presented  in  figure  1(g).  The  comment  cards 
give  a brief  explanation  of  the  use  of  the  routine. 

1-7.  SUBROUTINE  CEL2 

Subroutine  CEL2  calculates  the  complete  elliptic  integral  of  the 
second  kind.  This  subroutine  has  been  taken  directly  from  reference  11. 

For  a description  of  the  routine  that  reference  should  be  consulted.  A 
listing  of  the  routine  is  presented  in  figure  1(g).  The  comment  cards 
give  a brief  explanation  of  the  use  of  the  routine. 

1-8.  SUBROUTINE  DIRCOS 

Subroutine  DIRCOS  computes  the  direction  cosines  which  relate  the 
store  body  coordinate  system  to  the  inertial  coordinate  system.  The 
direction  cosines  are  given  by  equation  (28)  of  reference  4.  A listing 
of  the  routine  is  presented  in  figure  1(h).  The  three  angles  ¥,0,  and  <t> 
are  brought  into  the  subroutine  in  A(10) , A(ll) , and  A(12) , respectively, 
and  the  direction  cosines  are  returned  in  the  D array. 

1-9.  SUBROUTINE  DOUBLT 

Subroutine  DOUBLT  calculates  coefficients  used  in  the  determination 
of  the  line  doublet  strengths.  They  occur  as  terms  in  equations  (1-27) 
and  (1-28)  of  reference  1.  The  relation  of  the  coefficients  to  pertur- 
bation velocities,  dg  and  vfi  induced  by  a number  of  line  doublets 
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distributed  along  the  body  centerline  is  shown  in  the  first  two  of 
equation  (1-30)  in  which  the  coefficients  occur  as  the  multipliers  of 
Kd  n cos  0.  A listing  of  the  subroutine  is  presented  in  figure  1(h)  of 
this  report.  The  subroutine  is  called  by  subroutine  BDYGEN  and  section 
1-4  should  be  referred  to  for  further  details  concerning  the  doublet 
strength  calculations. 

For  a specified  control  point,  xB,  r , and  singularity  origin 
the  subroutine  calculates  quantities  U and  V according  to  the  following 
equations : 


U 


1 


V 


cosh 


) 


At  the  beginning  of  the  subroutine  a test  is  performed  to  determine  if  the 
control  point  is  ahead  of  the  Mach  cone  from  the  doublet  origin.  If  so, 

U and  V are  set  to  zero  and  control  is  returned  to  the  calling  program. 


The  following  table  of  definitions  contains  most  of  the  variable 
names  used  in  the  subroutine  : 


BETA 

RFIELD 

TX 

U 

V 

XFIELD 


p = v* 


'K  ~ 1 

rB;  radius  of  body  at  control  point 

£ ; location  on  body  axis  of  doublet  origin, 
positive  measured  from  tip  of  nose 

coefficient  defined  by  first  equation  above 

coefficient  defined  by  second  equation  above 

xg;  x location  of  control  point,  positive 
measured  from  tip  of  nose 


I- 10.  SUBROUTINE  D PCOEF 

Subroutine  DPCOEF  calculates  the  coefficient  matrix  of  the  set  of 
simultaneous  boundary  condition  equations  which  are  to  be  solved  for  the 
constant  u-velocity  panel  singularity  strengths.  A listing  of  the 


subroutine  is  presented  in  figure  1(h),  a flow  chart  in  figure  1-7, 
and  a table  equating  the  algebraic  and  program  notation  in  Table  1-4  of 
this  report. 


The  elements  of  the  matrix  are  the  aerodynamic  influence  coefficients 
described  in  section  3.3.4  of  reference  1.  They  occur  indirectly  in  the 
summation  terms  in  the  left-hand  side  of  equations  (9),  (10),  and  (11)  of 
that  reference.  The  actual  coefficients  which  the  subroutine  calculates, 
FVN(v,n),  are  related  to  the  summation  terms  through  the  panel  strengths, 
U+n/V«  ’ by  the  f°llow:i-n9  equations  in  which  n is  the  index  of  the 
influencing  panel  and  v is  the  control  point  index: 


NPANLS 


N1P.N1P+1 


NPTOT 


NPTOT 


The  subroutine  consists  of  three  double  DO  loops.  The  first  loop 
uses  subroutine  VELWP  to  calculate  the  influence  of  the  wing  panels  at 
the  wing,  pylon,  and  fuselage  control  points.  The  second  loop  is  bypassed 
if  there  is  no  pylon,  NPY  =0.  If  a pylon  is  present,  the  influence  coef- 
ficients for  the  pylon  panels  are  calculated  by  means  of  subroutine  VELPP 
The  third  double  loop  is  bypassed  if  there  is  no  fuselage,  NFU  = 0.  Other 
wise,  the  influence  coefficients  for  the  fuselage  panels  are  calculated 
using  subroutine  VELBD. 


Within  each  outer  loop  are  three  inner  loops  in  series,  which  fix  the 
control  point  location  on  the  wing,  pylon,  or  fuselage,  respectively.  On 
the  flow  chart,  only  the  first  occurrence  of  the  first  inner  loop  is  shown 
in  detail , which  includes  the  call  to  subroutine  VELWP.  The  remaining 
inner  loops  have  the  same  logical  structure  and  are  not  shown.  If  the 


control  point  is  on  a fuselage  panel,  the  influence  coefficient  is  the 
component  normal  to  the  body  surface  at  the  control  point.  This  is 
obtained  by  a rotation  through  the  panel  orientation  angle  using  quantities 
calculated  previously  in  subroutine  BLYOUT. 

1-11.  SUBROUTINE  DPRHS 

Subroutine  DPRHS  calculates  the  right-hand-side  vector  of  the  set  of 
simultaneous  boundary  condition  equations  which  are  to  be  solved  in  order 
to  determine  the  constant  u-velocity  panel  singularity  strengths.  The 
boundary  conditions  are  specified  in  equations  (9) , (10) , and  (11)  of 
reference  1.  A listing  of  the  subroutine  is  presented  in  figure  1(  i)  , 
a flow  chart  in  figure  1-8,  and  a table  equating  the  algebraic  and  program 
notation  in  Table  1-5  of  this  report. 

The  major  portion  of  the  subroutine  is  devoted  to  evaluating  the 
externally  induced  perturbation  velocities,  uw^  V/VK , v\ii  v/Vco>  and 
wwH  at  t*le  wi-n9  > pylon,  and  fuselage  control  points. 

The  first  section  calculates  velocities  induced  at  wing  and  pylon 
control  points  by  the  fuselage  line  sources,  sinks,  and  line  doublets  if 
a fuselage  is  present  (NFU  / 0) . A control  point  is  located  in  the  fuse- 
lage coordinate  system  (see  figure  5)  and  subroutine  VELCAL  is  called 
to  calculate  the  velocities  at  this  point.  These  velocities  are  summed 
in  the  UEI , VEI , and  WEI  arrays. 

The  perturbation  velocities  induced  by  the  store  are  calculated  next 
in  a double  DO  loop.  (The  subroutine  has  been  written  to  accommodate 
multiple  stores  although  in  the  present  program  the  number  of  stores  is 
limited  to  one.)  The  velocities  induced  at  the  fuselage  control  points 
are  included  in  these  calculations.  A control  point  is  first  located  in 
the  store  coordinate  system  shown  in  the  sketch  below. 


Subroutine  VELCAL  then  computes  the  perturbation  velocities  which  are 
resolved  into  the  wing  system  and  added  to  the  appropriate  array. 


If  a pylon  is  present,  NPY  ^ 0,  its  thickness  distribution  produces 
perturbation  velocities  at  the  wing  control  points.  Subroutine  VELPTH 
is  called  for  the  purpose  of  calculating  these  velocities  which  are  added 
to  the  UEI , VEI , and  WEI  arrays.  Similarly,  subroutine  VELWTH  is 
called  to  calculate  the  wing  thickness  perturbation  velocities  at  the 
pylon  control  points.  Following  this,  each  subroutine  is  called  a second 
time  to  compute  velocities  at  the  fuselage  control  points  if  a fuselage 
is  present. 


The  last  three  loops  in  the  subroutine  calculate  the  right-hand  sides 
of  equations  (9) , (10) , and  (11) . If  the  pylon  is  located  below  the 

fuselage  centerline,  CENTER  = TRUE,  VEI  is  set  to  zero  for  all  pylon 
control  points. 


It  should  be  noted  that  for  a fuselage  control  point  the  perturbation 
velocity  normal  to  the  fuselage  surface  at  the  control  point  is  used  for 
the  right-hand  side. 


1-12.  SUBROUTINE  ELI1 


Subroutine  ELI1  calculates  the  general  elliptic  integral  of  the 
first  kind.  This  subroutine  has  been  taken  directly  from  reference  11. 
For  a description  of  the  routine  that  reference  should  be  consulted.  A 
listing  of  the  routine  is  presented  in  figure  1(  j).  The  comment  cards 
give  a brief  explanation  of  the  use  of  the  routine. 


1-13.  SUBROUTINE  ELI 2 


Subroutine  ELI2  calculates  the  general  elliptic  integral  of  the 
second  kind.  This  subroutine  has  been  taken  directly  from  reference  11 
For  a description  of  the  routine  that  reference  should  be  consulted.  A 
listing  of  the  routine  is  presented  is  figure  1 ( ]c ) . The  comment  cards 
give  a brief  explanation  of  the  use  of  the  routine. 


1-14.  SUBROUTINE  FLSQFY 


Subroutine  FLSQFY  performs  a weighted  least  square  orthogonal  poly 
nomial  curve  fit  of  a set  of  x,y  data..  The  routine  is  based  on  refer- 
ence 12.  A listing  of  the  subroutine  is  presented  in  figure  1(  £)  of 
this  report. 


■ 


Given  a set  of  points  (x^.y^),  i = 1,2,...,M  and  corresponding  posi- 

degree  r, 
any  k N , 

Q(x)  - CQ  + C1Pi(x)  + ...  + CkPk(x) 


tive  weights  w^,  there  exist  orthogonal  polynomials  Pr (x)  of 
r = 0,1,..., M- 1 , and  coefficients  CQ,C  , ...,CN  such  that,  for 


is  that  polynomial  of  degree  k for  which  the  scalar 


M 

Y wi[Q(*i> 


i=l 


r 


has  its  minimum  value. 


The  subroutine  calculates  an  array  A of  N+l  coefficients  of  the 
least  squares  polynomial  in  standard  form  j^A(i  + 1)  = a^j  : 


Q (x)  = aQ  + axx  + . . . + aNx 


N 


Best  results  are  obtained  from  the  subroutine  if  a preliminary  coordinate 
transformation  is  performed  on  the  x data  points  so  that  the  origin 
lies  in  the  middle  of  the  x data.  This  is  performed  in  the  calling 
program. 

The  quantities  in  the  parameter  list  are 
M number  of  data  points 

N degree  of  polynomial  desired;  0 < N < M 

X array  of  independent  variable 

Y array  of  dependent  variable 

W array  of  positive  weights  in  correspondence  to 

the  x array;  for  an  unweighted  fit,  w^  = 1 
for  all  i 


MNl  row  dimension  of  scratch  array  SI;  MNl  J>  M + N + l 

SI  scratch  array 
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A array  of  computed  coefficients  in  order  of 

increasing  degree 

IER  error  indicator  (not  used) 

1-15.  SUBROUTINE  FUSEIO 

Subroutine  FUSEIO  reads  and  prints  the  input  data  which  describe 
the  fuselage  and  calculates  the  line  source  and  doublet  distributions  as 
described  in  Appendix  I of  reference  1.  A listing  of  the  subroutine  is 
presented  in  figure  l(m ) , a flow  chart  in  figure  1-9,  and  a table  equating 
the  algebraic  and  program  notation  in  Table  1-6  of  this  report. 

The  subroutine  first  reads  in  and  prints  input  items  5,  6,  7,  and  8 
which  consist  of  the  fuselage  length,  the  maximum  radius,  and  the  polyno- 
mials specifying  the  fuselage  shape.  Next,  the  data  used  to  lay  out  the 
body  interference  panels,  input  items  9 and  10,  are  read  and  printed. 
Finally,  subroutine  BDYGEN  is  called  for  the  purpose  of  calculating  the 
source  and  doublet  distributions. 

1-16.  SUBROUTINE  INTOST 

Subroutine  INTOST  (see  fig.  l(m  ) for  a listing)  takes  a vector 
with  components  specified  in  the  inertial  £,r),C  coordinate  system  direc- 
tions and  transforms  it  into  a vector  with  components  in  the  store  x,y,z 
coordinate  system  directions,  see  figure  14  of  this  report.  That  is, 


The  matrix  [A] 1 is  the  transpose  of  the  direction  cosine  matrix  given  by 
equation  (II-2)  of  reference  4.  The  transpose  is  equal  to  the  inverse 
since  (A]  is  orthogonal.  The  matrix  [A]  was  calculated  in  subroutine 
DIRCOS. 

In  terms  of  the  above  notation  , the  quantities  in  the  parameter  list 
of  the  subroutine  are 
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1-17.  SUBROUTINE  INVERS 

Subroutine  INVERS  (see  fig.  1 (m)  for  a listing)  solves  a set  of 
simultaneous  linear  algebraic  equations  by  Gaussian  elimination.  This 
routine  comes  from  reference  13  which  contains  a flow  chart.  Not  all  of 
the  options  shown  in  that  flow  chart  are  in  the  present  routine.  The 
quantities  in  the  parameter  list  are 

A array  containing  coefficient  matrix  and 

right-hand  sides 

NSYS  number  of  right-hand  sides 

N number  of  equations 

NMAX  first  dimension  of  A array  in  calling  program 

MMAX  second  dimension  of  A array  in  calling  program 

If  the  coefficient  matrix  is  found  to  be  singular  an  error  message  is 
printed  out  (see  section  4)  and  the  program  stops. 

1-18.  SUBROUTINE  NUMACH 

Subroutine  NUMACH  determines  a local  Mach  number  at  a given  field 
point  lateral  and  vertical  position  based  on  the  first  occurrence  of  an 
induced  downward  flow  velocity  behind  the  free  stream  Mach  cone  associated 
with  wing  thickness.  The  method  used  is  described  in  section  3.4  of 
reference  1.  The  routine  also  calculates  least-squares  polynomials  which 
approximate  the  velocities  at  the  specified  yw»zw  location.  The  veloc- 
ities are  based  on  the  local  Mach  number  and  represent  the  sum  of  velocities 
induced  at  each  point  of  the  traverse  by  the  wing-fuselage  aircraft 
components.  A listing  of  the  program  is  presented  in  figure  l(n  ) , a flow 
chart  in  figure  1-10,  and  a table  equating  the  algebraic  and  program  nota- 
tion in  Table  1-7  of  this  report. 
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At  the  beginning  of  the  subroutine  a test  is  performed  to  determine 
if  the  specified  location  (Z)  is  below  the  wing.  If  not,  an  error 

message  is  printed  (see  section  4)  and  the  program  stops. 

Next,  the  subroutine  calculates  the  local  wing  chord,  CHRD , at  the 
specified  yw  location  (Y) . Quantities  previously  determined  by  sub- 
routine WLYOUT  are  used  in  this  calculation.  As  shown  in  the  flow  chart, 
if  the  field  point  is  below  the  fuselage,  CHRD  equals  the  wing  root-chord; 
outboard  of  the  wing  tip  CHRD  equals  the  tip-chord. 

After  initializing  certain  control  variables,  the  subroutine  next 

begins  the  calculation  of  an  x traverse  aft  of  x = 0 . At  each 

w 

point  the  velocity  due  to  wing  thickness  is  calculated  (subroutine 
VELWTH) . The  point  at  which  wing  thickness  first  induces  a downward  veloc- 
ity is  determined  using  an  x-interval  size,  DELX1 , equal  to  one-tenth  CHRD. 
The  search  is  refined  twice,  each  time  backing  up  one  step  and  repeating 
the  calculations  using  DELX1  equal  to  one-third  the  previous  interval 
size.  Once  the  point  in  the  traverse  is  isolated  (XT3,Y,Z)  at  which  the 
downward  velocity  is  first  felt,  the  local  Mach  number,  , specified  by 
equations  (27)  and  (28)  of  reference  1 is  computed  from  the  velocity 
components . 

The  search  for  XT3  described  above  is  next  repeated  with  velocity 
calculations  based  on  M£  (specified  when  INUMCH  = 1).  ^he  new  value  of 
XT3  defines  the  beginning  of  the  range  of  influence  associated  with  the 
wing  thickness  panels.  The  subroutine  next  determines  the  end  of  this 
range  by  searching  for  the  point  in  the  traverse  (XT4,Y,Z)  at  which  a 50 
percent  decrease  in  the  magnitude  of  the  downward  velocity  due  to  wing 
thickness  occurs.  The  traverse  begins  at  seven-tenths  CHRD  aft  of  XT3 . 
The  search  is  very  similar  to  that  for  XT3. 

The  remainder  of  the  subroutine  calculates  the  flow  field,  based  on 
, at  a series  of  NCW  points  in  the  XT3,  XT4  range.  Contributions  from 
all  singularities  associated  with  the  wing  and  fuselage  are  included  in 
the  calculations.  The  flow  field  is  then  smoothed  by  fitting  each  velocity 
component  with  a least-squares  cubic  polynomial  over  the  data  points  in  the 
XT3 , XT 4 range.  Subroutine  FLSQFY  is  called  for  this  purpose.  The 
returned  polynomial  coefficients  are  stored  in  the  array  WSCOE. 
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1-19.  SUBROUTINE  PLYOUT 


Subroutine  PLYOUT  reads  in  data  which  describe  the  geometric  charac- 
teristics of  the  pylon  and  calculates  quantities  which  specify  the  pylon 
constant  u-velocity  panels.  The  pylon  input  variables  are  shown  in  figure  8 
of  this  report.  A listing  of  the  subroutine  is  presented  in  figure  1( P ) , 
a flow  chart  in  figure  1-11,  and  a table  defining  the  program  notation  in 
Table  1-8  of  this  report. 


The  first  part  of  the  subroutine  reads  in  and  prints  input  items  19, 
20,  and  21.  The  total  number,  MP,  of  pylon  constant  u-velocity  panels  is 
calculated.  Next,  the  pylon  leading  and  trailing  edge  sweeps  and  their 
difference,  PSLPDF,  are  calculated.  The  variables  PLEX  and  CSIDE  are 
initialized  for  the  calculation  of  the  first  chordwise  row  of  panels. 


The  remainder  of  the  subroutine  is  a double  DO  loop  within  which 
panel  leading-edge  and  trailing-edge  sweeps,  corner  coordinates,  and  con- 
trol point  coordinates  are  calculated.  These  quantities  for  the  pylon  are 
stored  in  arrays  following  the  same  quantities  calculated  by  subroutine 
WLYOUT  for  the  NPANLS  constant  u-velocity  panels  on  the  wing. 


The  following  sketch  shows  the  numbering  convention  associated  with 
the  pylon  panels  for  a typical  pylon-under-wing  layout  with  four  chordwise 
and  two  spanwise  panels. 


In  the  subroutine  notation,  the  panel  corners  labeled  left  are  those  farther 
from  the  pylon  root  chord. 


1-20.  SUBROUTINE  PYTHIN 


Subroutine  PYTHIN  reads  in  the  pylon  thickness  data,  input  item  22 
and  23.  A listing  of  the  subroutine  is  presented  in  figure  l(p)  of  this 
report. 


The  number  of  panels  in  a chordwise  row,  NCPS,  is  first  read  in  along 

with  an  index,  NUNIP,  which  indicates  whether  the  thickness  distribution 

is  similar  at  all  spanwise  stations.  If  it  is  similar,  NUNIP  = 1,  the 

values  of  tan  0 are  read  in  for  the  first  row  and  then  the  values  of 
P 

tan  6 p for  the  other  rows  are  set  equal  to  those  of  the  first  row.  If 
the  distribution  is  not  similar,  NUNIP  = 0,  the  values  of  tan  ©p  for  all 
rows  are  read  in. 

The  following  table  contains  most  of  the  variable  names  used  in  the 
subroutine.  Section  3.2.1  should  be  referred  to  for  the  definition  of 
a variable  that  is  an  input  quantity. 

MPS  number  of  thickness  panels  on  the  pylon; 

MSP* NCPS 

MSP  input,  item  20 

NCPS  input,  item  22 

NUNIP  input,  item  22 

THETPL ( I ) input,  item  23 

1-21.  SUBROUTINE  RESVEL 

Subroutine  RESVEL,  along  with  other  subroutines  which  it  calls, 
calculates  the  perturbation  velocities  at  a specified  field  point  due  to 
all  aircraft  components  other  than  the  store.  A listing  of  the  subroutine 
is  presented  in  figure  1(  q) , a flow  chart  in  figure  1-12,  and  a table 
equating  the  algebraic  and  program  notation  in  Table  1-9  of  this  report. 

The  variables  appearing  in  the  subroutine  parameter  list  are  defined  in 
this  table. 

The  subroutine  first  transforms  the  field  point  coordinates  into  the 
wing  coordinate  system  and  initializes  the  velocity  sums  to  zero.  Next, 
a test  is  performed  to  determine  whether  the  wing- fuselage  velocities  are 
to  be  calculated  using  a least-squares  polynomial  approximation,  described 
in  section  1-18,  or  in  accordance  with  equations  in  section  3 of  reference  1. 
If  ISMTH  = 0,  the  program  calculates  and  sums  velocities  using  the  latter 
methods.  First,  if  a fuselage  is  present,  NFU  = 1,  velocities  induced  by 
the  source  and  doublet  distributions  are  calculated  using  subroutine  VELCAL 
and  velocities  due  to  the  fuselage  interference  panels  using  subroutine 
VELBD.  Next,  the  wing  constant  u-velocity  panel  and  wing  thickness  panel 
velocities  are  calculated  using  subroutines  VELWP  and  VELWTH,  respectively. 
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Finally,  if  a pylon  is  present,  NPY  = 1,  the  pylon  velocities  are  calcu- 
lated by  calling  VELPP  for  constant  u-velocity  panels  and  VELPTH  for 
thickness  panels. 

If  ISMTH  = 1,  a second  test  is  performed  to  determine  whether  the 

x coordinate  of  the  field  point  is  within  the  range  of  x,  at  a specified 

y,z  location,  for  which  a smoothed  velocity  field  has  been  previously 

calculated  by  subroutine  NUMACH  (see  section  1-18) . This  range  is  referred 

to  in  the  flow  chart  as  the  XT3 , XT4  range  since  these  quantities  are  the 

limiting  values  of  the  range.  If  the  field  point  coordinate  is 

inside  this  range,  wing-fuselage  induced  velocities  are  calculated  using 

the  least-squares  polynomials.  Pylon  velocities  are  calculated  as  described 

above  for  ISMTH  =0.  If  the  field  point  x coordinate  is  outside  the 

w 

XT3 , XT4  range,  all  velocities  are  calculated  as  described  for  ISMTH  =0. 
1-22.  SUBROUTINE  SEMFOR 

Subroutine  SEMFOR  calculates  the  empennage  forces  and  moments  by 
the  method  described  in  section  5.3  and  Appendix  I of  reference  4.  A 
listing  of  the  subroutine  is  presented  in  figure  l(q  ) , a flow  chart  in 
figure  1-13,  and  a table  equating  the  algebraic  and  program  notation  in 
Table  1-10  of  this  report. 

An  examination  of  the  flow  chart  shows  that  the  first  steps  in  the 
routine  are  to  locate  the  point  at  which  the  empennage  forces  act  relative 
to  the  store  moment  center  and  to  set  JMAX  equal  to  2 or  4 depending  on 
whether  the  empennage  is  planar  or  cruciform. 

The  next  part  of  the  subroutine  calculates  the  perturbation  velocity 
field  at  the  MSF  control  points  on  each  of  the  JMAX  fins.  After  the  veloc- 
ities are  calculated  by  subroutine  RESVEL  they  are  resolved  into  the 
store-body  coordinate  system  by  subroutine  INTOST.  The  free-stream  com- 
ponents are  then  calculated,  resolved  into  the  store-body  coordinate 
system,  and  added  to  the  perturbation  velocities.  The  resultant  velocities 
are  made  dimensionless  by  the  store  free-stream  velocity  and  the  pitch  and 
yaw  damping  terms  are  added  if  aerodynamic  damping  is  being  included. 

From  these  velocities  the  components  normal  to  the  fin  surfaces  are 
determined.  Positive  directions  are  shown  in  figure  10  of  reference  4. 

The  remainder  of  the  routine  calculates  the  empennage  forces  and 

moments.  First  W and  V shown  in  figure  10  of  reference  4 are  deter- 
o o 

mined  from  the  velocity  field  used  in  the  store  body  force  and  moment 
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calculation.  Then,  the  normal  force  and  the  side  force,  if  the  empennage 
is  cruciform,  are  calculated  using  equations  (1-13)  and  (1-18)  of  refer- 
ence 4.  The  spanwise  integrations  are  performed  using  Simpson's  rule. 

It  is  to  be  noted  that  in  the  present  program  all  four  fins  are  assumed 
to  have  the  same  span,  s^  = sv*  The  pitching  moment  and  yawing  moment 
are  calculated  using  equations  (1-21)  and  (1-22) . 


These  forces  and  moments  are  in  the  fin  coordinate  system.  They  are 
resolved  into  the  body  coordinate  system  using  equations  (58)  through  (61) 
of  reference  4. 


Finally,  if  rolling  moment  is  to  be  calculated  this  is  done  using 
equation  (1-30)  or  (1-52)  of  reference  4.  Equation  (1-30)  is  for  a planar 
empennage  and  (1-52)  is  for  a cruciform  empennage. 


1-23.  SUBROUTINE  SEMPIN 


Subroutine  SEMPIN  initializes  certain  quantities  which  will  be  used 
repeatedly  in  the  empennage  force  and  moment  calculation,  subroutine 
SEMFOR.  The  equations  programmed  are  given  in  Appendix  I of  reference  4. 

A listing  of  the  subroutine  is  presented  in  figure  l(r  ) , a flow  chart  in 
figure  1-14,  and  a table  equating  the  algebraic  and  program  notation  in 
Table  1-11  of  this  report. 


The  flow  chart  indicates  that  the  first  calculation  performed  is  to 
determine  the  radial  distance  outward  from  the  body  axis  to  the  MSF  fin 
control  points.  The  first  point  is  at  the  body- fin  juncture,  r^  = a 
(see  fig.  10,  ref.  4),  and  the  last  is  at  rf  = s^  = sv>  The  others  are 
equally  spaced  in  between  these  two  points.  Next,  a check  is  made  to 
determine  that  XTAIL  was  input  as  a negative  quantity  and  then  the 
angular  orientation  of  the  fins  in  the  store-body  coordinate  system  is 
determined.  Referring  to  figure  10  of  reference  4,  these  angles  are 
measured  in  the  clockwise  direction  from  the  z axis. 


JMAX  is  next  set  equal  to  2 or  4 depending  on  whether  the  empennage 
is  planar  or  cruciform  and  then  the  yg  and  zg  coordinates  of  the  control 
points  on  all  of  the  fins  are  determined.  Next,  certain  constants  are 

calculated  and  then  the  values  of  (cc.)  are  calculated  at  the  control 

X/  3 

points.  They  are  the  same  for  all  panels  since  s^  = sy  (see  eqs.  (1-14) 
and  (1-19) , ref.  4) . 


If  rolling  moment  is  not  to  be  calculated,  NROLL  = 0,  control  is 
returned  to  the  calling  program.  If  rolling  moment  is  to  be  calculated, 
and  the  empennage  is  planar,  IPLNR  = 1,  (ccJ5  given  by  equation  (1-29) 
of  reference  4 is  calculated  at  the  control  points.  Note  that  in  the 
program  the  following  substitution  is  made 


cosh  1 (x)  = in(x  + V*2  ~ 1) 

For  a cruciform  empennage,  IPLNR  = 0,  equation  (1-51)  of  reference  4 is 
used  for  the  first  control  point  where  y^  = a.  For  the  other  control 
points  equation  (1-38)  is  used.  The  following  substitution  is  made  in 
the  program 


tanb~ 1 (x)  = | In  -*-j 


if 

1-24.  SUBROUTINE  SFORCE 

Subroutine  SFORCE  calculates  the  store-body  forces  and  moments  by 
the  methods  described  in  section  5.2  of  reference  4.  A listing  of  the 
subroutine  is  presented  in  figure  1(  s) , a flow  chart  in  figure  1-15,  and 
a table  equating  the  algebraic  and  program  notation  in  Table  1-12  of  this 
report. 

An  examination  of  the  flow  chart  shows  that  the  first  step  in  the 
routine  is  to  check  to  see  if  the  trajectory  being  calculated  is  to  simu- 
late a wind-tunnel  captive-store  trajectory.  If  it  is,  NGAM  = 1,  then 
the  store  attitude  relative  to  the  parent  aircraft  is  changed.  In  wind- 
tunnel  captive-store  testing  the  yaw  and  pitch  angles  of  the  store  are 
changed,  only  while  measuring  the  aerodynamic  forces  and  moments,  to 
account  for  translational  motion  relative  to  the  aircraft.  The  new  angles 
are 
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The  subscript  cs  refers  to  captive  store  and  ff  refers  to  free  flight. 
The  direction  cosines  between  this  new  body  coordinate  system  and  the 
inertial  or  fuselage  system  are  calculated  in  DIRCOS.  If  the  trajectory 
is  a free-flight  case,  the  direction  cosines  between  the  true  body  coordi- 
nate system  and  the  inertial  system  are  calculated. 

In  the  next  section  of  the  program  subroutine  NUMACH  is  called 
(see  section  1-18).  Following  this,  the  program  calculates  the  velocity 
field  given  by  equation  (40)  of  reference  4 at  specified  points  along  the 
separated  store  longitudinal  axis.  The  store  is  removed  from  the  flow 
field  during  this  calculation.  One  of  the  input  parameters  was  NSEG 
which  is  the  number  of  equal  length  segments  the  body  is  to  be  broken  into. 
These  segments  are  of  length  DELX  as  shown  in  the  following  sketch. 


The  velocities  are  calculated  at  the  midpoint  of  each  segment  as  well  as 
at  the  two  ends,  the  points  indicated  by  x in  the  sketch.  There  are 
thus  NHSEG  = 2*NSEG  + 1 points.  The  perturbation  velocity  field  is 
first  calculated  for  all  NHSEG  points.  These  velocities  are  the  u,v, 
and  w components  given  by  equation  (37)  of  reference  4.  After  the  veloc- 
ities are  calculated  by  subroutine  RESVEL,  they  are  resolved  into  the 
store-body  coordinate  system  by  subroutine  INTOST.  The  free-stream  veloc- 
ity components  are  next  determined,  resolved  into  the  store-body  coordinate 
system  and  added  to  the  perturbation  velocities  given  by  equation  (38) . 

At  this  time  the  velocities  are  made  dimensionless  by  Voos . If  damping  is 
being  included  the  damping  terms  in  equation  (40)  are  added. 

The  routine  next  calculates  the  forces  and  moments.  The  buoyancy 
forces  and  moments  are  first  determined.  From  equations  (42)  and  (44)  of 
reference  4 the  normal  force  and  the  pitching  moment  can  be  approximated 
by 
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These  are  the  equations  which  are  programmed.  Similar  equations  can  be 
written  for  the  side  force  and  yawing  moment. 


Next  the  s lender-body  forces  and  moments  are  calculated.  Referring 
to  equations  (46)  and  (48)  of  reference  4,  the  normal  force  and  pitching 
moment  are  approximated  by 
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Here  the  summations  are  terminated  at  the  assumed  separation  location  as 
specified  by  NSEGXO  of  item  30  of  the  input  data  since  NHSEGO  = 2*NSEGX0+1 . 
Note  that  the  quantity  in  the  first  summation  of  (cN)gB  is  the  same  as 


that  in  (cn)By*  use  has  been  made  of  this  fact  in  the  program.  Similar 


expressions  can  be  written  for  (Cy)SB  and  (cn)SB- 

If  separation  is  assumed  to  occur  ahead  of  the  base  of  the  store, 
NHSEGO  < NHSEG,  the  viscous  crossflow  forces  and  moments  in  this  region 
are  calculated  using  equations  (51)  through  (54)  of  reference  4.  The 
normal  force  and  pitching  moment  are  approximated  by 
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1-25.  SUBROUTINE  SHAPE 

The  purpose  of  this  subroutine  is  to  calculate  the  body  radius  and 
surface  slope  at  a specified  axial  station.  The  body  shape  is  specified 
by  a series  of  polynomials  of  the  form  of  equation  (2)  of  this  report.  A 
flow  chart  of  subroutine  SHAPE  is  presented  in  figure  1-16  and  a listing 
of  the  subroutine  in  figure  l(t  ). 

The  quantities  in  the  parameter  list  are: 

X value  of  x/£  at  which  radius  and  surface  slope 

are  to  be  calculated 

NS  number  of  polynomials  describing  body  shape 

XE  array  containing  values  of  x/f  for  the  end  points 

of  the  NS  polynomials 

C array  containing  the  coefficients  of  the  NS 

polynomials 

R calculated  value  of  r /£  at  x/£  = X 

DRDX  calculated  value  of  dr/dx  at  x/£  = X 

The  calculation  performed  by  this  subroutine  consists  of  two  steps. 
The  first  step  is  to  determine  which  of  the  NS  polynomials  describes  the 
shape  at  the  value  of  X where  the  radius  and  surface  slope  are  required. 
Once  this  is  determined,  the  appropriate  set  of  coefficients  is  used  in 
equation  (2)  to  determine  r/£.  The  value  of  dr/dx  is  found  by  differ- 
entiating equation  (2) . 
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It  should  be  noted  that  r/i  and  dr/dx  are  calculated  using  the  coeffi 
cients  of  the  NS*'*1  polynomial  if  x/£  is  greater  than  XE(NS). 


1-26.  SUBROUTINE  SIMSON 


Subroutine  SIMSON  calculates  the  wlue  of  a definite  integral  using 
Simpson's  rule.  This  can  be  found  in  any  elementary  numerical  analysis 
book,  for  example,  reference  14.  As  programmed  here 


x0+mAx 


where  m must  be  an  even  number  and  4 or  greater.  The  subroutine  is 
listed  in  figure  1(  u)  of  this  report.  Referring  to  the  listing  and  the 
above  equation,  the  quantities  in  the  subroutine  parameter  list  are 


1-27.  SUBROUTINE  SOURCE 


Subroutine  SOURCE  calculates  coefficients  used  in  the  determination 

of  the  line  source  strengths.  They  occur  as  terms  in  equations  (1-14)  and 

(1-17)  of  reference  1.  The  relation  of  the  coefficients  to  perturbation 

velocities,  u„  /V  and  v_  /V  , induced  by  a number  of  line  sources  distri- 
’ B , a ® B , a «>  J 

buteJ  along  the  tody  centerline  is  shown  in  the  first  two  of  equation  (1-30) 
in  which  the  coefficients  occur  as  the  multipliers  of  Kn . A listing  of 
the  subroutine  is  presented  in  figure  1(  u)  of  this  report.  The  sub- 
routine is  called  by  subroutine  BDYGEN  and  section  1-4  should  be  referred 
to  for  further  details  concerning  the  source  strength  calculations. 


For  a specified  control  point,  xB,rB>  and  singularity  origin, 
subroutine  calculates  quantities  U and  V according  to  the  following 
equations : 


At  the  beginning  of  the  subroutine  a test  is  performed  to  determine  if  the 
control  point  is  ahead  of  the  Mach  cone  from  the  source  origin.  If  so, 

U and  V are  set  to  zero  and  control  is  returned  to  the  calling  program. 

The  following  table  of  definitions  contain-;  most  of  the  variable 
names  used  in  the  subroutine: 

BETA  3 = Vm£  - 1 

00 

RFIELD  r ; radius  of  body  at  control  point 

TX  location  on  body  axis  of  source  origin;  positive 

measured  from  tip  of  nose 

U coefficient  defined  by  first  equation  above 

V coefficient  defined  by  second  equation  above 

XFIELD  x ; x location  of  control  point,  positive 
measured  from  tip  of  nose 

1-28.  SUBROUTINE  SOUTPT 

Subroutine  SOUTPT  prints  the  output  at  the  end  of  each  integration 
step.  A listing  of  the  subroutine  is  presented  in  figure  1(  u) , a flow 
chart  in  figure  1-17,  and  a table  equating  the  algebraic  and  program  nota- 
tion in  Table  1-13  of  this  report. 

The  current  value  of  the  time  is  first  printed  and  then  the  force  and 
moment  components  calculated  in  subroutines  SFORCE  and  SEMFOR  are  summed 
up.  The  components  and  totals  are  then  printed.  If  store  thrust  has  been 
calculated  (NTHRUS  not  equal  to  zero)  the  thrust  force  is  printed.  Next 
the  normal-force  and  side-force  distributions  and  the  velocity  field  along 
the  store  centerline  are  printed.  The  xg  locations  are  the  midpoints  of 
the  body  segments. 

The  next  section  of  the  subroutine  locates  the  store  nose,  moment 
center,  and  base  in  the  fuselage  or  inertial  system.  These  points  are 


located  relative  to  the  fuselage  nose  and  also  relative  to  where  they 
would  be  had  the  store  remained  in  the  t = 0 position  on  the  aircraft. 
These  positions  are  printed. 


The  remainder  of  the  subroutine  prints  the  store  moment  center  trans- 
lational velocities  and  accelerations,  the  store  rotational  velocities 
and  accelerations,  and  the  store  angular  orientation  and  rates  of  change 
of  these  angles. 

1-29.  SUBROUTINE  STORIO 

Subroutine  STORIO  reads  and  prints  the  data  which  describe  and 
locate  the  store  and  calculates  the  store  source  and  doublet  distribution. 
Although  the  number  of  stores  in  the  present  version  of  the  program  is 
restricted  to  one,  subroutine  STORIO  has  been  written  in  a general  form 
that  will,  with  minor  changes,  accommodate  multiple  stores.  A listing  of 
the  program  is  presented  in  figure  l(v),  a flow  chart  in  figure  1-18,  and 
a table  equating  the  algebraic  and  program  notation  in  Table  1-14  of  this 
report. 

The  subroutine  first  reads  in  and  prints  data  for  each  store,  including 
a shape  number,  NSHAPE(J).  The  next  section  of  the  program  is  a double 
DO  loop.  The  outer  loop  reads  in  and  prints  polynomials  specifying  a 
particular  store  shape.  In  the  inner  loop  this  shape  is  assigned  to  the 
store  with  matching  shape  number,  and  subroutine  BDYGEN  is  called  to 
calculate  the  source  and  doublet  distributions  for  this  store.  At  the  end 
of  the  double  loop  a check  is  made  to  see  if  the  index  NCOUNT  is  equal  to 
the  number  of  stores,  NSTRS.  If  it  is  not,  data  are  missing  for  some  store. 
This  causes  the  message  "shape  polynomials  not  input  for  all  stores"  to  be 
printed  and  the  program  stops.  The  last  part  of  the  subroutine  locates  all 
the  stores  in  the  wing  coordinate  system.  The  wing  coordinate  system  is 
shown  in  figure  6. 

1-30.  SUBROUTINE  STTOIN 

Subroutine  STTOIN  (see  fig.  l(w)  for  a listing)  takes  a vector  with 
components  specified  in  the  store  x,y,z  coordinate  system  directions  and 
' -ansforms  it  into  a vector  with  components  in  the  inertial  coor- 

dinate system  directions,  see  figure  14  of  this  report.  That  is, 


In  terms  of  the  above  notation,  the  quantities  in  the  parameter  list 
of  the  subroutine  are 


1-31.  SUBROUTINE  SWNGIN 


Subroutine  SWNGIN  reads  in  data  required  to  describe  the  geometric 
characteristics  of  the  wing  and  to  lay  out  the  wing  constant  u-velocity 
panels.  A listing  of  the  subroutine  is  presented  in  figure  l(w)  of  this 
report. 


The  first  part  of  the  subroutine  reads  in  and  prints  input  items  12, 
13,  and  14,  which  consist  of  wing  geometry  data  and  quantities  used  to 
locate  the  trapezoidal-shaped  elemental  panels.  Next,  the  wing  twist 
and  camber  distribution,  if  any,  is  read,  input  items  15  and  16.  Two 
indices,  NTAC  and  NUNI , are  first  input.  If  NTAC  = 0 there  is  no  twist 
and  camber.  The  index  NUNI  indicates  whether  the  twist  and  camber  distri 
bution  is  similar  at  all  spanwise  stations.  If  it  is  similar,  NUNI  = 1, 
the  values  of  tan  a „ are  read  in  for  the  first  row  and  then  the  values 
of  tan  a ^ for  the  other  rows  are  set  equal  to  those  of  the  first  row. 

If  the  distribution  is  not  similar,  NUNI  = 0,  the  values  of  tan  a ^ for 
all  rows  are  read  in. 


The  following  table  contains  definitions  of  most  of  the  variable  names 
used  in  the  subroutine.  Section  3.2.1  of  this  report  should  be  referred 
to  for  the  definition  of  a variable  that  is  an  input  quantity. 


ALPHAL (I ) 

tan  a^;  input,  item  16 

CRW 

length  of  wing  root  chord;  input,  item 

12 

MSW 

input,  item  13 

MSWP 

MSW  + 1 

NCW 

input,  item  13 

NPANLS 

number  of  constant  u-velocity  panels  on 
NCW*MSW 

wing; 

NTAC 

input,  item  15 

NUNI 

input,  item  15 

PSIWLE(I) 

input,  item  14 

PSIWTE (I) 

input,  item  14 

SSPAN 

semispan  of  wing;  input,  item  12 

Y(l) 

input,  item  14 

SUBROUTINE 

THKLYT 

Subroutine 

THKLYT  calculates  quantities  which  characterize 
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and  pylon  thickness  source  panels.  These  quantities  are  stored  in  arrays 
in  each  of  which  the  wing  panel  variables  precede  the  pylon  variables. 

All  panel  coordinates  are  expressed  in  the  wing  coordinate  system  which  is 
shown  in  figure  6.  A listing  of  the  subroutine  is  presented  in  figure  1 (w  ), 
a flow  chart  in  figure  1-19,  and  a table  equating  the  algebraic  and  program 
notation  in  Table  1-15  of  this  report. 


The  first  part  of  the  subroutine  calculates  the  layout  of  the  wing 

panels.  After  the  variables  CSIDEP,  SLPDIF,  and  WLEX  are  initialized 

for  the  first  cbordwise  row  of  panels,  the  remaining  calculations  are 

performed  within  a double  DO  loop.  The  outer  loop  index,  X,  specifies 

the  chordwise  row  and  the  inner  loop  index,  K,  the  panel  location  in  the 
fch 

I row.  Within  the  inner  loop  the  panel  leading-edge  and  trailing-edge 
slopes  and  the  corner  coordinates  are  calculated  and  stored.  The  panels 
are  numbered  consecutively  in  chordwise  rows  beginning  with  panel  number 
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one  of  row  one  adjacent  to  the  wing  root-chord  at  the  leading  edge.  The 
sequence  proceeds  in  increasing  numbers  to  the  trailing  edge.  Then  back 
to  the  leading  edge  for  the  second  chordwise  row.  The  process  continues 
until  the  last  panel,  numbered  MS,  is  located  adjacent  to  the  wing  tip 
at  the  trailing  edge. 

If  a pylon  is  present  (NPY  = 1) , the  remainder  of  the  subroutine 
calculates  the  panel  leading-edge  and  trailing-edge  slopes  and  the  corner 
coordinates  for  the  pylon  source  panels.  The  procedure  used  differs  very 
little  from  the  wing  panel  calculations.  The  value  of  PSLPDF,  previously 
calculated  by  subroutine  PLYOUT,  is  constant  for  all  chordwise  rows 
because  no  breaks  in  leading-edge  or  trailing-edge  sweep  angles  may  occur 
on  the  pylon.  Also,  the  initial  value  of  PLEX  depends  upon  the  pylon 
location;  the  index  IP  is  tested  for  this  purpose.  The  numbering  con- 
vention associated  with  the  pylon  thickness  panels  is  the  same  as  that 
used  for  pylon  constant  u-velocity  panels.  It  is  described  in  section  1-19. 
In  describing  corner  coordinates  for  both  wing  and  pylon  panels,  the  corners 
closer  to  the  respective  root-chord  are  designated  right  corners;  those 
farther  from  the  root-chord  are  designated  left  corners. 


1-33.  SUBROUTINE  THKOUT 


Subroutine  THKOUT  prints  the  slopes  of  the  wing  and  pylon  thickness 
distributions  which  were  read  in  as  items  18  and  23  of  the  input  data,  see 
section  3.2.1.  After  the  thickness  slopes  are  printed,  they  are  divided 
by  PI  and  saved  in  a combined  array,  DZDX,  for  subsequent  velocity 
calculations.  A listing  is  presented  in  figure  l(x  ) of  this  report. 


The  following  list  defines  most  of  the  variables  used  in  the  subroutine 

DZDX  array  containing  wing  and  pylon  thickness  slopes 

after  dividing  by  ir 


number  of  pylon  thickness  panels 


number  of  wing  thickness  panels 


number  of  thickness  panels  in  a chordwise  row 
on  the  pylon;  input,  item  22 


number  of  thickness  panels  in  a chordwise  row 
on  the  wing;  input,  item  17 


NCWS 


index  indicating  whether  a pylon  is  (NPY  * 
or  is  not  (NPY  = 0)  present;  input,  item  4 


PI 

V 

THETAL 

array  containing 

wing  thickness  slopes; 

input,  item  18 

THE T PL 

array  containing 

pylon  thickness  slopes; 

input,  item  23 
1-34 . SUBROUTINE  THRCAL 

Subroutine  THRCAL  calculates  the  store  thrust  at  a given  time.  A 
listing  of  the  subroutine  in  presented  in  figure  l(x  ) of  this  report. 

The  thrust  force  acts  along  the  store  longitudinal  axis  and  is  speci- 
fied by  a series  of  polynomials  of  the  form 

■ t 

n=l 


where  FT  is  the  thrust  in  pounds  at  time  t.  The  time  history  is  speci- 
fied by  one  of  NTPOLY  polynomials  each  of  which  is  applicable  for  a 
range  of  t.  The  subroutine  first  determines  which  polynomial  should  be 
used  for  the  given  time  value  t.  Once  this  is  determined,  the  appropriate 
set  of  coefficients,  a^,  is  used  in  the  above  equation  to  calculate  F^,. 

If  t is  greater  than  the  end  of  the  specified  thrust  time  history,  an 
error  message  is  printed  (see  section  4)  and  the  program  stops. 

The  following  table  of  definitions  contains  most  of  the  variable 
names  used  in  the  subroutine.  Section  3.2.1  should  be  consulted  for  the 
definition  of  a variable  which  is  an  input  item. 


FTHRUS 

NTPOLY 

T 

TC(J,I) 
TEND ( J) 


F^,;  store  thrust  at  time  t 


input,  item  38 

t;  time  at  which  thrust  force  is  to  be 
calculated 

input,  item  40 

input,  item  39 
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1-35 . SUBROUTINE  VELBD 

Subroutine  VELBD  calculates  perturbation  velocities  at  a given  field 
point  due  to  the  constant  u-velocity  panels  on  the  fuselage,  according  to 
the  methods  described  in  section  3 . 3 of  ref erence  1 . The  subroutine  is  also 
used  to  obtain  the  single-panel  influence  coefficients  which  occur  indirectly 
in  equations  (9) , (10) , and  (11)  of  that  reference.  Section  1-10  of  this 
report  should  be  consulted  for  further  details  concerning  these  coefficients. 
A listing  of  the  subroutine  is  presented  in  figure  l(y),  a flow  chart  in 
figure  1-20,  and  a table  equating  the  algebraic  and  program  notation  in 
Table  1-16  of  this  report.  The  subroutine  uses  quantities  calculated  in 
subroutine  BLYOUT  which  is  described  in  section  1-5.  The  wing  coordinate 
system  is  shown  in  figure  6. 

At  the  beginning  of  the  subroutine  the  logical  variable  PYPNL  is 

set  equal  to  FALSE,  the  velocity  totals  UP,  VP,  and  WP  are  initialized 

to  zero,  and  the  panel  leading-edge  and  trailing-edge  slopes,  EM,  are 

defined  as  zero.  The  remainder  of  the  subroutine  consists  of  a DO  loop 

th 

in  which  the  influence  functions  for  the  four  corners  of  the  I panel 
are  calculated  and  superposed.  The  superposition  scheme  is  described  in 
section  3.3.4  of  reference  1 and  that  reference  should  be  consulted  for 
further  details.  In  the  corner  numbering  convention  for  fuselage  panels 
corner  one  is  the  left  front,  corner  two  the  right  front,  corner  three 
the  left  rear,  and  corner  four  the  right  rear  panel  corner.  The  right 
corners  are  clockwise  from  the  left  when  viewed  from  the  rear. 

At  the  beginning  of  the  DO  loop  the  corner  influence  function  totals 

TU,  TV,  and  TW  are  initialized  to  zero.  Next,  a test  is  performed  to 

determine  if  the  point  at  which  velocities  are  to  be  calculated  lies  ahead 

til 

of  the  panel  leading  edge;  if  so,  all  calculations  for  the  I panel  are 
skipped.  If  the  point  is  not  ahead  of  the  leading  edge,  a test  is  per- 
formed next  to  determine  in  which  fuselage  quadrant  the  panel  lies.  As 
the  flow  chart  indicates,  two  similar  but  distinct  transformation  and 
superposition  procedures  are  followed,  depending  upon  the  panel  location. 

In  each  procedure,  the  field  point  is  first  located  relative  to  corner  one 
in  a corner  coordinate  system  which  is  shown  in  the  sketch  below.  Each 
panel  corner  has  an  associated  coordinate  system.  The  xc  axis,  not  shown 
in  the  sketch,  is  positive  to  the  rear. 


If  corner  one  is  in  the  upper  left  quadrant  the  sign  of  the  yc  coordinate 
of  the  field  point  is  reversed  and  subroutine  VELO  is  called  to  calculate 
the  influence  of  the  corner  on  the  image  of  the  point  with  respect  to  the 
xc,zc  plane.  The  sign  of  V,  which  is  the  returned  influence  function  in 
the  yc  direction,  is  then  reversed.  The  functions  U,V,W  are  resolved 
back  into  the  wing  system  and  superposed  in  the  same  manner  as  that  used 
for  wing  panels  with  positive  sweep  (see  fig.  4,  ref.  1).  Panels  in  the 
lower  left  quadrant  are  treated  in  the  same  manner  as  wing  panels  with 
negative  sweep.  No  further  coordinate  change  is  necessary  and  subroutine 
VELO  returns  U,V,  and  W which  are  resolved  into  the  wing  system  and 
superposed . 

Next,  in  each  procedure,  the  influence  of  the  mirror  image  of  corner 
one  with  respect  to  the  aircraft  vertical  plane  of  symmetry  is  calculated. 
This  is  accomplished  by  the  equivalent  method  of  calculating  the  direct 
influence  of  corner  one  on  the  field  point  image.  Following  the  call  to 
subroutine  VELO  the  sign  of  V is  reversed  in  the  superposition. 

Corner  one  calculations  are  repeated  in  a similar  manner  for  corners 
two,  three,  and  four,  but  only  corner  one  is  detailed  in  the  flow  chart. 
After  superposition  of  the  four  corner  influence  functions  for  the  I 
panel  is  completed,  a test  is  performed  to  determine  if  perturbation 
velocities  are  to  be  calculated.  If  II  = IF,  the  influence  coefficients 
for  the  I*"*1  fuselage  panel  and  the  given  control  point  are  returned  by 
the  subroutine.  If  II  ^ IF,  the  coefficients  are  multiplied  by  the 
strength  of  the  Ith  panel,  divided  by  v,  to  obtain  the  perturbation 
velocities  induced  by  that  panel  at  the  given  field  point.  These  veloc- 
ities are  computed  and  summed  for  all  fuselage  panels. 
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1-36.  SUBROUTINE  VELCAL 


Subroutine  VELCAL  calculates  perturbation  velocities  at  a given 
field  point  due  to  the  fuselage  and  store  source  and  doublet  distributions 
according  to  equation  (1-32)  of  reference  1.  A listing  of  the  subroutine  is 
presented  in  figure  1 ( aa)  of  this  report.  The  fuselage  coordinate  system 
is  shown  in  figure  5.  The  store  coordinate  system  is  shown  in  the  sketch 
of  section  1-11. 


The  coordinates  of  the  field  point  are  given  as  formal  parameters  in 
the  appropriate  body  coordinate  system.  The  subroutine  first  transforms 
these  coordinates  into  the  VELCAL  system  by  changing  the  sign  of  X and  Z 
and  then  into  the  polar  coordinates  XFIELD,  RFIELD , and  THETA. 


The  major  part  of  the  program  consists  of  a DO  loop  within  which 
the  axial,  radial,  and  tangential  velocities  due  to  the  N sources  and 
doublets  are  calculated  and  summed.  A test  is  made  to  determine  whether 
the  field  point  is  ahead  of  the  Mach  cone  from  the  Xth  source  origin, 

TX ( I ) . If  so,  all  remaining  perturbation  velocities  are  equal  to  zero  and 
no  further  calculations  are  performed  within  the  loop.  At  the  end  of  the 
subroutine,  the  velocities  are  resolved  back  into  the  directions  of  the 
body  coordinate  system. 


array  containing  the  source  strengths 
array  containing  the  doublet  strengths 


number  of  line  sources  and  doublets 


x coordinate  of  field  point  in  body  system 


coordinate  of  field  point  in  body  system 


uAm  perturbation  velocity  at  field  point 
body  system 

v/V„  perturbation  velocity  at  field  point 
body  system 

w/VK  perturbation  velocity  at  field  point 
body  system 


1-37 . SUBROUTINE  VELO 


Subroutine  VELO  calculates  the  aerodynamic  influence  functions  of 
a semi-infinite  triangle  associated  with  a constant  u-velocity  panel , as 
described  in  section  11-2,1  of  Appendix  II  of  reference  1.  The  influence 
functions  relate  the  panel  singularity  strength  to  the  perturbation  veloc- 
ities induced  by  the  traingle  at  a given  point.  They  occur  as  the  coef- 
ficients of  1/tt(u  +/Vm)  in  equations  (II-4)  and  (11-12)  of  reference  1. 

A listing  of  the  subroutine  is  presented  in  figure  l(bb),  a flow  chart  in 
figure  1-21,  and  a table  equating  the  algebraic  and  program  notation  in 
Table  1-17  of  this  report.  The  coordinate  system  used  by  the  subroutine 
is  shown  in  figure  3 of  reference  1. 

At  the  beginning  of  the  subroutine  the  quantity  BETA  is  set  equal 
to  BETANU  or  to  BETAOL  depending  on  the  values  of  INUMCH  and  PYPNL 
(section  1-18  of  this  report  should  be  referred  to  for  further  details 
concerning  this  choice).  Next,  the  logical  variable  FELT  is  initialized 
to  TRUE  and  a test  is  performed  to  determine  if  the  field  point  is 
located  ahead  of  the  influencing  triangle  (X  0).  If  so,  the  influence 
functions  U,V,W  are  set  to  zero,  FELT  is  set  to  FALSE,  and  control  is 
returned  to  the  calling  program. 

Next,  the  variable  PYPNL  is  tested  and,  if  the  triangle  is  on  the 
pylon,  a transformation  is  performed  which  rotates  the  triangle  into  the 
VELO  x,y  plane.  After  the  calculation  of  the  logical  variable  INSIDE 
and  other  frequently  used  quantities,  the  remainder  of  the  subroutine 
consists  of  four  major  sections  in  which  the  influence  function  terms, 

Fl , F2 , F4 , F5 , and  F7 , are  calculated.  Each  section  corresponds  to  a 
condition  of  the  slope,  EML,  of  the  leading  edge  associated  with  the  semi- 
infinite triangle.  The  subroutine  requires  that  EML  ^ 0 and  this  is 
accounted  for  in  the  VELO  calling  programs.  The  four  leading-edge  condi- 
tions are  described  fully,  with  accompanying  sketches  in  section  II-2.1  of 
reference  1.  All  equation  numbers  mentioned  in  the  following  paragraphs 
are  from  section  II-2.1  of  reference  1. 

The  first  section  of  the  subroutine  corresponds  to  a subsonic  leading 
edge,  BTSQ  < EMLSQ.  Equation  ( II—  5 ) is  used  if  the  point  is  inside  the 
Mach  cone  from  the  origin,  INSIDE  = TRUE.  If  not,  U,V,  and  W are  set  to 
zero.  In  this  section  as  in  the  remaining  ones,  discontinuities  in  some 
of  the  equations  may  occur  for  certain  field  point  locations.  In  such 
cases  the  affected  influence  function  is  set  to  zero.  The  quantities 
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YYEDGE  and  TLRNC,  as  well  as  Y and  Z,  are  used  to  test  the  singularity 
locations . 

If  BETAS Q = EMLSQ , the  leading  edge  is  a sonic  leading  edge.  The 
equations  used  are  the  same  as  for  the  subsonic  case  except  for  the 
function  F2 , which  is  given  by  equation  (II-7).  If  the  point  lies  outside 
the  Mach  cone  from  the  origin,  the  influence  functions  equal  zero. 

The  third  section  of  the  subroutine  is  used  if  the  triangle  leading 
edge  is  supersonic,  BTSQ  > EMLSQ.  Equations  (II-5)  and  (II-9)  calculate 
the  terms  of  the  influence  functions  if  INSIDE  = TRUE.  If  not,  a second 
test  is  performed  and  equation  (11-11)  is  used  if  the  point  is  inside 
the  Mach  cone  whose  origin  is  on  the  leading  edge  at  the  field  point  y 
location.  Otherwise  the  functions  U,V,W  are  set  to  zero. 

The  fourth  section  of  the  subroutine  is  executed  if  the  leading  edge 
is  unswept,  EML  = 0.  For  this  special  case  the  perturbation  velocity 
equations  are  given  by  (11-12).  If  INSIDE  = TRUE,  the  influence  function 
terms  are  given  by  (II-5)  and  (11-13) . Outside  the  Mach  cone  from  the 
origin  but  inside  the  cone  from  the  leading  edge  equation  (11-14)  is 
jsed.  Otherwise,  U,V,W  are  set  to  zero. 

The  last  part  of  the  subroutine  calculates  the  function  U,V,W  from 
the  component  terms,  in  the  case  of  a leading  edge  with  positive  sweep, 
using  equation  (II-4) . If  the  triangle  is  located  on  the  pylon,  V and  W 
are  rotated  back  into  pylon  orientation. 

1-38.  SUBROUTINE  VELOTH 

Subroutine  VELOTH  calculates  the  aerodynamic  influence  functions  of 
a semi-infinite  triangle  associated  with  a wing  or  pylon  thickness  panel, 
as  described  in  section  II-2.2  of  Appendix  II  of  reference  1.  The  influence 
functions  relate  the  panel  source  strength  to  the  perturbation  velocities 
induced  by  the  triangle  at  a given  point.  They  occur  as  the  coefficients 
of  l/fr(tan  6)  in  equations  (11-15)  and  (11-16)  of  reference  1.  A listing 
of  the  subroutine  is  presented  in  figure  1 (cc)  of  this  report.  The  sub- 
routine is  very  similar  in  logic  to  subroutine  VELO  which  is  described  in 
detail  in  section  1-37  and  represented  by  a flow  chart  in  figure  1-21. 

In  subroutine  VELOTH,  three  component  terms,  FI,  F2 , and  F5 , need  to 
be  calculated  in  order  to  determine  the  influence  functions  UTH,VTH,  and 
WTH.  Referring  to  section  II-2.1  and  II-2.2  of  reference  1,  function  FI, 

F2 , and  F5  are  specified  in  equation  ( 1 1—  5)  for  the  case  of  a subsonic 


leading  edge,  in  equations  (II-5)  and  II-7)  for  a sonic  leading  edge,  and 
in  equations  (II-5),  (II-9)  , and  (n-ll)for  a supersonic  leading  edge.  For 
the  special  case  of  an  unswept  leading  edge  (EML  = 0) , the  general  pertur- 
bation velocity  equations  are  given  by  (11-16) . If  the  given  point  lies 
inside  the  Mach  cone  from  the  origin  of  the  triangle,  function  FI  is 
given  by  equation  (11-13)  , function  F5  by  equation  ( 1 1—  5 ) , and  function 
F2  by  equation  (11-17) . If  the  point  lies  outside  the  Mach  cone  from  the 
origin  but  inside  the  Mach  cone  from  the  triangle  leading  edge  at  the  field 
point  y location,  functions  Fl,  F2 , and  F5  are  given  by  equation  (11-16). 
In  all  leading  edge  cases,  the  function  Fl , F2 , and  F5  are  singular  for 
certain  field  point  locations.  When  this  occurs,  the  affected  influence 
function  is  set  to  zero. 

A table  equating  the  algebraic  and  program  notation  for  subroutine 
VELO  is  presented  in  Table  1-17  of  this  report.  Almost  all  of  the  nota- 
tion used  in  subroutine  VELOTH  is  defined  in  this  table.  One  should 
note  that  the  influence  functions,  U,V,W  and  the  point  coordinates,  YS,ZS, 
in  VELO  are  named  UTH ,VTH ,WTH ,YTH , and  ZTH,  respectively  in  subroutine 
VELOTH. 


1-39.  SUBROUTINE  VELPP 

Subroutine  VELPP  calculates  perturbation  velocities  at  a field  point 
due  to  the  constant  u-velocity  panels  on  the  pylon  according  to  methods 
described  in  section  3.3  of  reference  1.  The  subroutine  is  also  used  to 
obtain  the  single  panel  influence  coefficients  which  form  the  coefficients 
of  1/tt(u+/Voo)  in  equation  (12)  of  reference  1.  A listing  of  the  sub- 
routine is  presented  in  figure  l(ee),  a flow  chart  in  figure  1-22,  and  a 
table  equating  the  algebraic  and  program  notation  in  Table  1-18  of  this 
report.  The  quantities  in  the  subroutine  parameter  list  are  contained  in 
this  table.  The  wing  coordinate  system  is  shown  in  figure  6. 

At  the  beginning  of  the  subroutine,  the  logical  variable  PYPNL  is 
set  equal  to  TRUE,  indicating  to  subroutine  VELO  that  calculations  are 
to  be  performed  for  a pylon  panel.  The  quantities  YDIR  and  YIMG  are 
calculated  and  the  velocity  totals,  UP,VP,WP,  are  initialized  to  zero. 

The  remainder  of  the  subroutine  consists  of  a DO  loop  in  which  the 
influence  functions  for  the  four  corners  of  the  It^i  panel  are  calculated 
and  superposed.  The  superposition  scheme  is  described  in  section  3.3.4 
of  reference  1 and  that  reference  should  be  consulted  for  further  details. 
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The  corner  numbering  convention  for  pylon  panels  associates  corners  one 
and  two  with  the  leading  edge  left  and  right  corners,  respectively;  corners 
three  and  four  with  the  trailing  edge  left  and  right  corners,  respectively. 
The  left  corners  are  those  farther  from  the  pylon  root  chord. 

At  the  beginning  of  the  DO  loop  the  influence  function  totals  are 
initialized  to  zero  and  the  leading-edge  slope,  EMI,  and  trailing-edge 
slope,  EM2 , are  defined.  Next,  a test  of  the  sign  of  EMI  is  performed 
and  two  distinct  transformation  and  superposition  procedures  are  followed 
depending  on  the  results  of  this  test,  as  the  flow  chart  indicates.  In 
each  procedure  a test  is  performed  first  to  determine  if  the  field  point 
lies  ahead  of  the  most  forward  leading-edge  corner;  if  so,  all  calculations 
for  the  I panel  are  skipped.  If  the  point  is  not  ahead  of  the  leading 
edge,  the  point  is  located  relative  to  corner  one  in  a corner  coordinate 
system  which  is  illustrated  in  the  sketch  below.  Each  panel  corner  has 
an  associated  coordinate  system. 


For  a panel  with  swept  back  leading  edge,  EMI  ^ 0 the  superposition 
scheme  is  the  same  as  for  a wing  panel  with  positive  sweep  (see  figure  4, 
reference  1) . The  field  point  z coordinate  is  reversed  and  subroutine 
VELO  is  called  to  calculate  the  influence  of  corner  one  on  the  image  of 
the  point  with  respect  to  the  xc»yc  plane.  The  sign  of  W is  then 
reversed.  The  functions  U,V,W  are  resolved  back  into  the  wing  system 
and  superposed.  If  the  panel  leading  edge  is  swept  forward,  superposition 
is  the  same  as  for  wing  panels  with  negative  sweep.  The  sign  of  EMI  is 
reversed  and  subroutine  VELO  returns  U,V,W  which  are  resolved  into  the 
wing  system  and  superposed.  It  should  be  noted  that  the  subroutine  code 
combines  superposition  and  transformation  steps  and  that  the  final  sign 
changes  of  U and  W are  made  at  the  end  of  the  DO  loop. 
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The  next  calculations  are  omitted  if  the  pylon  is  located  under  the 
fuselage  centerline.  Otherwise,  the  influence  of  the  mirror  image  of 
corner  one  with  respect  to  the  vertical  plane  of  symmetry  is  calculated. 

This  is  accomplished  by  the  equivalent  method  of  calculating  the  direct 
influence  of  corner  one  on  the  image  of  the  field  point  and  then  reversing 
the  sign  of  V. 

Corner  one  calculations  are  repeated  in  a similar  manner  for  corners 

two,  three,  and  four,  but  only  corner  one  is  described  in  detail  in  the 

flow  chart.  After  superposition  of  the  four  corner  influence  f unction  s 
for  the  I*"*1  panel  is  completed,  a test  is  performed  to  determine  if 
perturbation  velocities  are  to  be  calculated.  If  II  = IF,  the  influence 
coefficient  for  the  I*'*1  pylon  panel  and  the  given  control  point  is 

returned  by  the  subroutine.  If  II  ^ IF,  the  coefficients  are  multiplied 

by  the  strength  of  the  Ifch  panel,  divided  by  tr,  to  obtain  the  pertur- 
bation velocities  induced  by  that  panel  at  the  given  field  point.  These 
velocities  are  computed  and  summed  for  all  pylon  constant  u-velocity  panels. 

1-40.  SUBROUTINE  VELPTH 

Subroutine  VELPTH  calculates  perturbation  velocities  at  a field 
point  due  to  the  pylon  thickness  distribution  according  to  methods  described 
in  section  3.3  of  reference  1.  The  program  logic  is  very  similar  to  that 
of  subroutine  VELPP  which  calculates  velocities  induced  by  the  pylon 
constant  u-velocity  panels.  Subroutine  VELPP  has  been  described  in 
detail  in  section  1-39  and  is  represented  by  a flow  chart  in  figure  1-22 
of  this  report.  Only  those  details,  therefore,  in  which  subroutine  VELPTH 
differs  from  subroutine  VELPP  are  included  in  this  description.  A listing 
of  the  subroutine  is  presented  in  figure  1 ( gg)  and  a table  equating  the 
algebraic  and  program  notation  in  Table  1-19.  The  quantities  in  the  sub- 
routine parameter  list  are  contained  in  this  table. 
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The  coordinates  of  the  field  point  are  given  as  formal  parameters  in 
the  wing  coordinate  system.  The  point  is  located  relative  to  each  of  the 
four  panel  corners  using  the  same  transformation  scheme  as  in  VELPP. 
However,  the  corner  coordinate  arrays  which  define  the  pylon  thickness 
panels  and  which  have  been  previously  calculated  by  subroutine  THKLYT 
(see  section  1-32)  are  used  in  the  transformations.  Subroutine  VELOTH 
is  called  to  calculate  the  corner  influence  functions,  U,V,W,  which  are 
then  superposed  in  the  same  manner  as  in  VELPP. 
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Finally,  the  subroutine  calculates  perturbation  velocities  only  and 
is  not  used  to  obtain  single  panel  influence  coefficients.  Thus,  after 
the  calculation  of  the  influence  coefficients  for  the  Xth  panel  is  com- 
pleted, no  test  is  performed  to  determine  if  II  = IF.  The  influence 
coefficients  are  multiplied  by  DZDX(I)  to  obtain  perturbation  velocities 
induced  by  the  I*"*1  panel  at  the  given  point.  These  velocities  are  cal- 
culated and  summed  for  all  pylon  thickness  panels. 


1-41.  SUBROUTINE  VELWP 


Subroutine  VELWP  calculates  perturbation  velocities  induced  at  a 
given  field  point  by  the  constant  u-velocity  panels  on  the  wing  according 
to  methods  described  in  section  3.3  of  reference  1.  The  subroutine  is 
also  used  to  obtain  single  panel  influence  coefficients  which  occur  in 
equation  (12)  of  reference  1 as  the  coefficients  of  l/ir (u+/Voo)  . A listing 
of  the  subroutine  is  presented  in  figure  l(hh),  a flow  chart  in  figure  1-23 
and  a table  equating  the  algebraic  and  program  notation  in  Table  1-20  of 
this  report.  The  quantities  in  the  subroutine  parameter  list  are  contained 
in  this  table.  The  wing  coordinate  system  is  shown  in  figure  6. 


At  the  beginning  of  the  subroutine,  the  logical  variable  PYPNL  is 
set  equal  to  FALSE  indicating  to  subroutine  VELO  that  calculations  are 
for  a horizontal  rather  than  a pylon  panel.  After  the  velocity  totals, 

UP , VP , WP , are  initialized  to  zero,  the  remainder  of  the  subroutine  consists 
of  a DO  loop  within  which  the  influence  functions  for  the  four  corners 
of  the  1^  panel  are  calculated  and  superposed.  The  superposition  scheme 
is  described  in  section  3.3.4  of  reference  1 and  that  reference  should  be 
consulted  for  further  details.  The  corner  numbering  convention  for  wing 
panels  is  shown  in  figure  4 of  reference  1. 


At  the  beginning  of  the  DO  loop  the  influence  totals,  TU,TV,and  TW 
are  initialized  to  zero  and  the  leading-edge  slope,  EMI,  and  trailing-edge 
slope,  EM2 , are  defined.  Next,  a test  of  the  sign  of  EMI  is  performed 
and  two  distinct  transformation  and  superposition  procedures  are  followed 
depending  on  the  results  of  this  test,  as  the  flow  chart  indicates.  In 
each  procedure  the  point  is  first  located  relative  to  corner  one  in  the 
corner  coordinate  system  described  in  section  1-39  of  this  report.  The 
zc  location  of  the  field  point  is  constant  for  all  wing  panels  and  is 
defined  outside  the  DO  loop.  If  EMI  > 0,  the  sign  of  the  yc  coor- 
dinate of  the  point  is  reversed  and  subroutine  VELO  is  called  to  calculate 


the  influence  of  corner  one  on  the  image  of  the  point  with  respect  to  the 
xc,Zc  Plane*  The  sign  of  V is  then  reversed.  The  functions  U,V,W 
are  resolved  back  into  the  wing  system  and  superposed.  If  EMI  < 0,  the 
sign  of  EMI  is  reversed.  After  the  call  to  VELO , the  functions  U,V,W 
are  resolved  back  into  the  wing  system  and  superposed.  In  the  subroutine 
code  transformation  and  superposition  steps  are  combined  and  the  final 
sign  change  of  U and  W are  made  at  the  end  of  the  DO  loop. 


Next,  in  each  procedure,  the  influence  of  the  image  of  corner  one 
with  respect  to  the  aircraft  vertical  plane  of  symmetry  is  calculated. 
This  is  accomplished  by  the  equivalent  method  of  calculating  the  direct 
influence  of  corner  one  on  the  field  point  image  and  then  reversing  the 
sign  of  V. 


Corner  one  calculations  are  repeated  in  a similar  manner  for  corners 
two,  three,  and  four,  but  only  corner  one  is  detailed  in  the  flow  chart. 
After  superposition  of  the  four  corner  influence  functions  for  the  1^ 
panel  is  completed,  a test  is  performed  to  determine  if  perturbation  veloc- 
ities are  to  be  calculated.  If  II  = IF,  the  influence  coefficient  for  the 
IIth  panel  and  the  given  control  point  is  returned  by  the  subroutine. 

If  II  / IF,  the  coefficients  are  multiplied  by  the  strength  of  the  I*"*1 
panel,  divided  by  w,  to  obtain  the  perturbation  velocities  induced  by  that 
panel  at  the  given  field  point.  These  velocities  are  computed  and  summed 
for  all  pylon  constant  u-velocity  panels. 


1-42 . SUBROUTINE  VELWTH 


Subroutine  VELWTH  calculates  perturbation  velocities  at  a given 
field  point  due  to  the  wing  thickness  distribution,  according  to  methods 
described  in  section  3.3  of  reference  1.  The  program  logic  is  very  similar 
to  that  of  the  corresponding  subroutine  VELWP,  which  calculates  velocities 
induced  by  the  wing  constant  u-velocity  panels.  Subroutine  VELWP  has 
been  described  in  detail  in  section  1-41  and  is  represented  by  a flow  chart 
in  figure  1-23  of  this  report.  Only  those  details,  therefore,  in  which 
subroutine  VELWTH  differs  from  subroutine  VELWP  are  included  in  this 
description.  A listing  of  the  subroutine  is  presented  in  figure  1 ( j j ) 
and  a table  equating  the  algebraic  and  program  notation  in  Table  1-21. 

The  quantities  in  the  subroutine  parameter  list  are  contained  in  this 
table. 


The  coordinates  of  the  field  point  are  given  as  formal  parameters  in 
the  wing  coordinate  system.  The  point  is  located  relative  to  each  of  the 
four  corners  of  the  trapezoidal  shaped  thickness  panels  using  the  same 
transformation  schemes  as  in  VELWP.  However,  the  corner  coordinate  arrays 
which  define  the  wing  thickness  panels  and  which  have  been  previously 
calculated  by  subroutine  THKLYT  (see  section  1-32)  are  used  in  the 
transformations.  Subroutine  VELOTH  is  called  to  calculate  the  corner 
influence  functions,  U,V,W,  which  are  then  superposed  in  the  same  manner 
as  in  VELWP. 

Finally,  the  subroutine  calculates  perturbation  velocities  only  and 

is  not  used  to  obtain  single  panel  influence  coefficients.  Thus,  after 

th 

the  calculation  of  the  influence  coefficients  for  the  I panel  is  com- 

pleted, no  test  is  performed  to  determine  if  II  = IF.  The  influence 
coefficients  are  multiplied  by  DZDX(I)  to  obtain  the  perturbation  veloc- 
ities induced  by  the  I panel  at  the  given  field  point.  These  velocities 
are  calculated  and  summed  for  all  wing  thickness  panels. 


1-43.  SUBROUTINE  WITHIN 

Subroutine  WITHIN  reads  in  the  wing  thickness  data,  input  items  17 
and  18.  A listing  of  the  subroutine  is  presented  in  figure  1 (kk)  of  this 
report. 

The  number  of  panels  in  a chordwise  row,  NCWS , is  first  read  in  along 
with  an  index,  NUNIS,  which  indicates  whether  the  thickness  distribution 
is  similar  at  all  spanwise  stations.  If  it  is  similar,  NUNIS  = 1,  the 
values  of  tan  6 are  read  in  for  the  first  row  of  panels  and  then  the 
values  of  tan  6 for  the  other  rows  are  set  equal  to  those  of  the  first 
rowi  If  the  thickness  distribution  is  not  similar,  NUNIP  = 0,  the  values 
of  9 for  all  rows  are  read  in. 

After  the  thickness  slopes  are  read  in,  an  input  error  check  is 
performed.  If  any  of  the  tan  6 values  is  zero  or  negative  at  the  wing 
leading  edge,  an  error  message  is  printed  (see  section  4)  and  the  program 
halts . 


The  following  table  contains  definitions  of  most  of  the  variable  names 
used  in  the  subroutine.  Section  3.2.1  should  be  referred  to  for  the 
definition  of  a variable  that  is  an  input  quantity. 


JLE 

index  of  first  wing 
chordwise  row 

thickness 

panel  in  a 
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i tern 
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1-44 . SUBROUTINE  WLYOUT 


Subroutine  W.  V ,jt  calculates  quantities  which  characterize  the 
constant  u-velocity  panels  on  the  wing.  An  example  of  a wing  trapezoidal 
panel  is  shown  in  figure  2 of  reference  1.  Similar  routines  PLYOUT 
and  BLYOUT  calculate  these  quantities  for  the  pylon  and  fuselage  panels, 
respectively.  The  arrangement  of  variables  in  any  single  coordinate  array 
is  wing  panels  first,  pylon  panels  second,  and  fuselage  panels  last.  All 
coordinates  are  in  the  wing  coordinate  system  which  is  shown  in  figure  6. 


A listing  of  the  subroutine  is  presented  in  figure  1 ( £ , a flow  chart  in 
figure  1-24,  and  a table  equating  the  algebraic  and  program  notation  in 
Table  1-22  of  this  report. 

As  indicated  by  the  flow  chart,  the  first  part  of  the  subroutine  tests 


whether  the  wing  leading-edge  and  trailing-edge  sweep  angles  are  constant 


at  all  spanwise  Y-stations.  If  breaks  in  sweep  occur,  the  indicator 
LVSWP  is  set  equal  to  one;  otherwise,  LVSWP  = 0 and  the  quantity  SLPDIF, 
the  difference  between  leading-edge  and  trailing-edge  slopes  for  a chord- 
wise  row,  is  computed  outside  the  main  DO  loop. 

After  initializing  the  quantities  CSIDEP  and  WLEX,  the  remainder 
of  the  subroutine  consists  of  a double  DO  loop.  The  outer  loop  index, 

I,  controls  the  chordwise  row;  the  inner  loop  index,  K,  specifies  the  panel 
location  in  the  Ith  row.  Within  the  inner  loop,  the  panel  leading-edge 
and  trailing-edge  slopes,  the  corner  coordinates,  and  the  control  point 
coordinates  are  calculated  and  stored.  The  convention  used  in  numbering 
the  NPANLS  wing  constant  u-velocity  panels  is  the  same  as  that  used  for 
the  wing  thickness  panels.  Section  1-32  should  be  referred  to  for  details. 
In  the  subroutine  notation,  the  right-hand  side  of  the  panel  is  the  one 
closer  to  the  root-chord. 


TABLE  1-1 


DICTIONARY  OF  NOTATION  IN  MAIN  PROGRAM 


The  following  list  presents  most  of  the  variable  names  used  in  the 
main  program.  Those  which  appear  in  common  statements  or  parameter  lists 
of  subroutines  but  are  not  used  in  the  main  program  are  not  included. 
Where  possible  a variable  name  is  identified  by  a symbol  in  the  list  of 
symbols  or  an  equation  number  in  reference  4.  If  the  symbol  or  equation 
number  is  from  another  reference,  the  reference  number  is  given.  Where 
a variable  is  an  input  quantity,  it  is  so  identified  and  section  3.2.1  of 
this  report  should  be  referred  to  for  the  definition.  The  xB>yg>ZB 
coordinate  system  is  shown  in  figure  5 of  this  report. 


PROGRAM 

NOTATION 


ALGEBRAIC  NOTATI ON 


g,  32.174  feet/second 


degrees;  input,  item  3 


ALFAC 


ALFACR 


ALPHAL(N) 


input,  item  16 


BETA 


input,  item  35 


input 


logical  variable  which  is  TRUE  for  a pylon  under  the 
fuselage  centerline 


CENTER 


lift-curve  slope  of  tail  panels;  input,  item  37 


CLALPH 


CLMBY 


equation  (53) 


CLMCF 


equation  (60) 


CLMEM 


Table  1-1.-  Continued 


CLNBY 


CLNCF 


CLNEM 


CNBY 


CNCF 


CNEM 


CNORM 


coefficients  of  polynomials  specifying  separated  store 
shape;  input,  item  34 


CROLL 


cos [SIBCR(N) ] 


CYAW 


CYEM 


input  value  of  integration  interval;  set  equal  to 
DTI ME  of  item  42 


DDTIME 


Talle  1-1.-  Continued. 


DELTP(N) 

DELX 

DTI  ME 

DTOR 

DVAR(N) 

N = 1,2,, 

EDRDX (I ) 

ERAD(I) 

ESTLGC 

ESTRMX 

EXST(I) 

FINSS 


FLTHC 
FMACH 
FMCHSO 
F THRUS 
GAMF 

GXX ,GYY , GZZ 


l/vCu+ZVa,)  ; equation  15,  reference  1 

length  of  body  segment  used  in  force  calculation 
current  value  of  integration  interval 
degrees  to  radians  conversion  factor,  1/57.29578 
I f C >£, 4,  *,£,n,  respectively 


da/dxg  at  the  midpoint  of  the  i segment  of  the 
separated  store 

a at  the  midpoint  of  the  ith  segment  of  the  separated 
store 

£s  of  separated  store 

a . of  separated  store 
max 

xg  location  of  the  ith  half  segment  on  the  separated 
store 

tail  fin  semispan;  input,  item  37 


FI  XX 

I : 

XX* 

input , 

item 

31 

FIXY 

I 

xy> 

input , 

item 

31 

FIXZ 

I 

xz  * 

input , 

item 

31 

FIYY 

I 

yy* 

input , 

item 

31 

FI  YZ 

*yz  * 

input , 

item 

31 

FIZZ 

Jzz  ’ 

input , 

item 

31 

fuselage  length;  input,  item  5 
Mot;  input,  item  3 

M.2 

thrust  force  , FT,  reference  1 

fuselage  flight  path  angle,  yf;  input,  item  3 

gx,gy,gz,  equation  (67) 


1 1 


empennage  type;  input,  item  36 
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Table  1-1.-  Continued. 


MP 

number  of  u-velocity  panels  on  pylon,  MP  = NCP*MSP 

MPS 

number  of  pylon  thickness  panels,  MPS  = NCPS*MSP 

MS 

number  of  wing  thickness  panels,  MS  = NCWS*MSW 

MSF 

input,  item  36 

MSP 

input,  item  20 

MSW 

input,  item  13 

NBD 

NBD  = NBDCR1  + NBDCR2  which  were  input  in  item  9 

NBIP 

number  of  u-velocity  panels  on  fuselage; 
NBIP  = NBD*NCWB 

NCP 

input,  item  20 

NC  PS 

input,  item  22 

NCW 

input,  item  13 

NCWB 

input,  item  9 

NCWS 

input,  item  17 

NDAMP 

input,  item  30 

NDIFEO 

control  index  used  in  subroutine  ADAMS 

NEJECT 

number  of  store  being  separated;  input,  item  30 

NEJSTR 

subscript  associated  with  separated  store; 
1 <;  NEJSTR  < NSTRS 

NEMP 

input,  item  30 

NEQ 

number  of  differential  equations  being  integrated  by 
subroutine  ADAMS;  NEQ  = 12 

NF  POLY 

input,  item  6 

NFU 

input,  item  4 

NGAM 

input,  item  30 

NHSEG 

number  of  points  along  store  axis  where  velocity  field 
is  to  be  calculated;  NHSEG  = 2*NSEG  + 1 

Table  1-1.-  Continued. 


NHSEGO 

number  of  points  along 
point  where  velocity 
NHSEGO  = 2*NSEGXO  + 1 

NPANLS 

number  of  u-velocity  p; 
NCW*MSW 

NPOLY 

input,  item  30 

NPTOT 

NPANLS  + MP  + NBIP 

NPTOTP 

NPTOT  + 1 

NPY 

input,  item  4 

NROLL 

input,  item  30 

NSEG 

input,  item  30 

NSEGXO 

input,  item  30 

NSTRS 

input,  item  4 

nthp 

MS  + MPS 

NTHRUS 

input,  item  30 

NT POLY 

input,  item  38 

NUMSTR(I) 

number  associated  with 

NIP 

NPANLS  + 1 

N2 

NPANLS  + MP 

N2P 

N2  + 1 

PHI ROL 

input,  item  37 

OS  REF 

SR 

s K 

QSREFL 

q~sSR'^R 

QSTORE 

, equation  (69) 
s 

RADAV 

input,  item  37 

REFL 

iR,  equation  (72) 

RHO 

PooJ  input,  item  3 

. th 


store;  input,  item  24 
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SAPG 
SI BCR (I ) 

SIC(I) 

SLTHC(I) 

SMASS 

SREF 

SRMAX(I) 

SSI BCR ( I ) 

SSPAN 

TC  ( I , J ) 

TEND (I) 

TIME 

TIMEF 

TIMEI 

TIPY 

UU 

VAR  (N)  , 

N = 1,2,. 

VINF 

VSTORE 

W 

VXZERO 

VYZERO 

VZZERO 

WW 


sin(af  + Yf) 

incidence  angle  of  ith  store  relative  to  fuselage 
axis,  radians;  SIC(I)*DTOR 

th 

incidence  angle  of  the  i store;  input,  item  24 
fch 

length  of  i store;  input,  item  24 

m,  mass  of  separated  store;  input,  item  31 

SD , equation  (70) 

K 

til 

maximum  radius  of  i store;  input,  item  24 

sin [SIBCR (I) ] 
input,  item  12 
input,  item  40 
input,  item  39 
t,  current  value  of  time 
final  time;  input,  item  42 
initial  time;  input,  item  42 
exposed  wing  span 


> 

i 


3 


.12  T £ Y 0 <t>  respectively 

V^;  input,  item  3 

Vm  , equation  (41) 
s 

*o 

input,  item  41 
input,  item  41 
input,  item  41 


i 


\ 

I ' Vr‘ 
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XBAR 
XBASEI 
XBSO ( I ) 
XBWOC 

XCGI 

XEND(N) 

XMOM 
XNOSEI 
XTAIL 
XWSOC ( I ) 

YBAR 

YBASE1 

YBSO(I) 

YCGI 

YNOSEI 

YPL 

YWSO ( I ) 
ZBAR 
ZBASEI 
ZBSO(I) 

ZB  WO 

ZCGI 
ZNOSEX 
ZWSO ( I ) 


x;  input,  item  32 

£ coordinate  of  separated  store  base  at  t = 0 

coordinate  of  tip  of  nose  of  i store 
B 

x coordinate  of  wing  root-chord  leading  edge;  input, 

Bi  tem  11 

!•  coordinate  of  separated  store  moment  center  at  t = 0 

end  points  of  polynomials  specifying  separated  store 
shape;  input,  item  33 

x ; input,  item  32 
s,m’  r > 

£ coordinate  of  tip  of  separated  store  nose  at  t = 0 
input,  item  37 

x coordinate  of  tip  of  nose  of  ith  store  measured 
from  wing  root-chord  leading  edge 

y;  input, item  32 

rj  coordinate  of  separated  store  base  at  t = 0 
yD  coordinate  of  ifc^  store 

rj  coordinate  of  separated  store  moment  center  at  t=0 

t}  coordinate  of  tip  of  separated  store  nose  at  t = 0 

yD  coordinate  of  pylon  root-chord  leading  edge 

B 

y location  of  i*"*1  store  in  wing  coordinate  system 
z;  input,  item  32 

£ coordinate  of  separated  store  base  at  t = 0 
z coordinate  of  tip  of  nose  of  ith  store 

B 

z coordinate  of  wing  root-chord  leading  edge;  input, 
“item  11 

£ coordinate  of  separated  store  moment  center  at  t = 0 

£ coordinate  of  tip  of  separated  store  nose  at  t = 0 

z location  of  tip  of  ith  store  nose  measured  relative 
to  wing  root-chord  leading  edge 


f 


TABLE  1-2 


DICTIONARY  OF  NOTATION  IN  SUBROUTINE  BDYGEN 

The  following  list  presents  most  of  the  variable  names  used  in  sub- 
routine BDYGEN.  Where  possible  a variable  name  is  identified  by  a symbol 
in  the  list  of  symbols  or  an  equation  number  in  reference  1.  Where  a 
variable  is  an  input  quantity  it  is  so  identified  and  section  3.2.1  of 
this  report  should  be  referred  to  for  the  definition. 


PROGRAM 

NOTATION 


ALGEBRAIC  NOTATION 


coefficient  of  in  equation  (1-28),  or  of 

K in  equation  (1-17) , for  a given  control  point. 

vJ  “ 1 7 


ALPHA 


angle  measured  between  the  body  centerline  and  the  free- 
stream  direction 


LBODY/N 


DRDX(I) 


LBODY 


slope  of  body  surface  at  I control  point 

length  of  body  for  which  source  and  doublet  distribution 
is  to  be  calculated 


Mm;  input,  item  3 


NX BODY  - 1 


NXBODY 


number  of  polynomials  used  to  specify  body  shape 
number  of  body  definition  points 


RADIUS 


RBODY(I) 

RF(I) 


RFIELD 


maximum  radius  of  body 

radius  of  body  at  I*"*1  body  definition  point 
radius  of  body  at  Ith  control  point 
radius  of  body  at  a control  point 


RPBODY ( I ) 


body  radius  at  a specified  axis  point,  made  dimension- 
less by  body  length 

th 

slope  of  body  surface  at  I body  definition  point 
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array  containing  coefficients  of  polynomials  used  to 
specify  body  shape 


slope  of  body  surface  at  a control  point 


quantity  represented  by  summation  expression  in  right 
hand  side  of  the  first  of  equations  (I- 17)  and  (1-28 


array  containing  doublet  strength 
quantity  K.  T calculated  by  < 
(1-28)  d,J_1 


array  containing  x locations  of  origins  of  conical 
line  sources  and  doublets;  positive,  measured  from 
tip  of  nose 


quantities  from  equations  (1-14),  (1-17),  (1-27),  and 
(1-28)  , calculated  by  subroutines  SOURCE  and  DOUBLT 


terms  from  equations  (X- 14)  , (1-17),  (1-27),  and  (1-28) 
calculated  by  subroutines  SOURCE  and  DOUBLT 


XBODY(I) 


x location  of  I body  definition  point;  positive 
back,  measured  from  tip  of  nose 


array  containing  x locations  of  end  points  of  poly- 
nomial sections  specifying  body  shape,  made  dimension 
less  by  body  length 


XEND 


control  point;  positive,  measured 


x location  of  I 
from  tip  of  nose 


x location  of  a control  point;  positive 
from  tip  of  nose 


XFIELD 


x location  of  a specified  axis  point,  made  dimension' 
less  by  body  length 


TABLE  1-3 


1 


DICTIONARY  OF  NOTATION  IN  SUBROUTINE  BLYOUT 


The  following  list  presents  most  of  the  variable  names  used  in  sub- 
routine BLYOUT.  Where  possible  a variable  name  is  identified  by  a symbol 
in  the  list  of  symbols  or  an  equation  number  in  reference  1.  Where  a 
variable  is  an  input  quantity  it  is  so  identified  and  section  3.2.1  of 
this  report  should  be  referred  to  for  the  definition.  The  ^’^,Zw 
coordinate  system  is  shown  in  figure  6. 


PROGRAM 

NOTATION 

ALGEBRAIC  NOTATION 

ANG 

fuselage  panel  orientation  angle  relative  to  x ,yB 
plane;  negative  measured  in  counterclockwise 
rotation  from  positive  y direction 

ANGW 

sin  1 (ZBWO/FRMAX) 

BODYPL 

input,  item  10 

CPY 

y coordinate  of  a fuselage  control  point 
coordinate  system  (see  section  1-5) 

in  panel 

CS 

cos (THT) 

CST2 (J) 

DX 

FAC 

FRMAX 

IL.IU 

I TIMES 


cos (ANG T) ; ANGt  is  the  value  of  ANG  associated  with 

Tth  J . J 
J panel 

panel  length;  BODY PL/N CWB 

0.95;  constant  used  to  locate  XCPT{J)  at  95  percent 
of  chord  containing  panel  centroid 

input,  item  5 

initial  and  final  values,  respec tively ,of  loop  index 
over  ring  of  body  interference  panels 

control  constant:  ITIMES  = 1,  panel  is  above  non- 

tangent wing;  ITIMES  = 2,  wing  is  tangent,  or  panel 
is  below  wing 

number  of  panels  in  a ring  of  body  interference  panels; 
NBDCR1  + NBDCR2 


input,  item  9 
input,  item  9 
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total  number  of  body  interference  panels;  NCWB*NBD 


NBIP 


input,  item  9 


NCWB 


number  of  constant  u 


radians  to  degrees  conversion  factor;  180/tt 


RTOD 


sin(THT) 


SNT2 ( J) 


polar  angle  in  cross-sectional  plane,  defining  the 
origin  of  panel  coordinate  system  relative  to  fuselage 
center;  positive  in  clockwise  rotation  from  negative 
y„  axis 


THTI (J) 


(t r - THT_) *RTOD;  THT 
J 9 l 

with  panel 


central  angle  in  cross-sectional  plane,  defined  by 
radial  lines  drawn  from  center  of  fuselage  to  panel 
edges  (see  section  1-5) 


control  point 


j location  of  front  edge  of  panels  in  a ring  of 
body  interference  panels 


constant 


j coordinate  of  right  front  corner  of  I 
u-velocity  panel 


constant 


control  point 


constant  u-velocity 


Table  I- 

3.- 

Concluded. 

YRC(I) 

yw  coordinate 
ity  panel 

of 

right  edge  of 

1th 

constant  u-veloc- 

ZB  WO 

input,  item  11 

ZCPT(I) 

zw  coordinate 

of 

I control 

point 

ZLC(I) 

z coordinate 
panel 

of 

left  edge  of 

Xth 

constant  u-velocity 

ZRC(I) 

z coordinate 

of 

right  edge  of 

Ith 

constant  u-velocity 

panel 

TABLE  1-4 


DICTIONARY  OF  NOTATION  IN  SUBROUTINE  DPCOEF 


The  following  list  presents  most  of  the  variable  names  used  in  sub- 
routine DPCOEF.  Where  possible  a variable  name  is  identified  by  a symbol 
in  the  list  of  symbols  or  an  equation  number  in  reference  1.  Where  a 
variable  is  an  input  quantity  it  is  so  identified  and  section  3.2.1  of 
this  report  should  be  referred  to  for  the  definition. 


PROGRAM 

NOTATION 


ALGEBRAIC  NOTATION 


cosine  of  orientation  angle  of  I 
(see  section  1-5) 


aerodynamic  influence  coefficient  representing  the 
influence  of  the  K*-h  panel  at  the  control 

point 


number  of  constant  u- velocity  panels  on  left  wing  panel 


NPANLS 


total  number  of  constant  u-velocity  panels 


NPTOT 


input,  item  4;  NPY  = 0 , no  pylon 


NPY 


NPANLS  + 1 


number  of  constant  u-velocity  panels  on  wing  and  pylon 


SNT2 (I) 


sine  of  orientation  angle  of 
(see  section  1-5) 


influence  coefficient  associated  with  function 
of  equation  (12) 


influence  coefficient  associated  with  function  F 
of  equation  (12) 


influence  coefficient  normal  to  the  body  surface  at  a 
specified  fuselage  control  point 


control  point 


XCPT(I) 


control  point 


YCPT(I) 


control  point 


TABLE  1-5 


DICTIONARY  OF  NOTATION  IN  SUBROUTINE  DPRHS 

The  following  list  presents  most  of  the  variable  names  used  in  sub- 
routine DPRHS.  Where  possible  a variable  name  is  identified  by  a symbol 
in  the  list  of  symbols  or  an  equation  number  in  reference  1.  Where  a 
variable  is  an  input  quantity  it  is  so  identified  and  section  3.2.1  of 
this  report  should  be  referred  to  for  the  definition.  The  store  coordinate 
system  is  shown  in  the  sketch  in  section  1-11,  the  fuselage  coordinate 
system  in  figure  5,  and  the  wing  coordinate  system  in  figure  6. 

PROGRAM 

NOTATION  ALGEBRAIC  NOTATION 

ALFACR  a^,  radians;  in  degrees  was  input  in  item  3 

ALPHAL(J)  tan(a^);  input,  item  16 

CENTER  logical  variable,  TRUE,  if  pylon  is  located  under  the 

fuselage  centerline 

CIR  array  containing  the  right-hand  sides  of  equations  (9) , 

(10) , and  (11) 

CSIBCR(K)  cos [SIC (K) ] ; SIC(K)  was  input,  item  24 

CST2 (I)  cosine  of  the  orientation  angle  of  Ith  fuselage 

interference  panel 


FDS 

FSS 

FXL 

II, IF 
MS 

NFSOR 

NFU 

NPANLS 

NPTOT 


ill 


array  containing  the  strengths  of  the  fuselage  doublet 
distribution 

array  containing  the  strengths  of  the  fuselage  source 
distribution 

array  containing  the  x positions  of  the  fuselage 
singularity  origins;  positive,  measured  from  tip  of 
nose 

initial  and  final  values,  respectively,  of  thickness 
panel  index 

number  of  wing  thickness  panels 

input,  item  9 

input,  item  4;  NFU  = 0 , no  fuselage 

number  of  constant  u-velocity  panels  on  wing 

number  of  constant  u-velocity  panels  on  wing,  pylon, 
and  fuselage 
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j 


I 


NSSOR(K) 


NSTRS 


SLTHC (K) 


SNT2 (I) 


SSIBCR(K) 


UEI (I) 


VEI (X) 


Table  1-5.-  Continued. 


input,  item  4;  NPY  = 0 , no  pylon 


MSOR  associated  with  Ktn  store;  MSOR  was  input  in 
item  26 


input,  item  4;  NSTRS  limited  to  one  in  present  program 


number  of  thickness  panels  on  wing  and  pylon 


NPANLS  + 1 


number  of  constant  u-velocity  panels  on  wing  and  pylon 


N2  + 1 


array  containing  the  strengths  of  the  doublet  distri- 
bution for  the  store 


input,  item  24 


sine  of  the  orientation  angle  -af  the  I fuselage 
interference  panel  > 


sin[SIC(K)];  SIC(K)  was  input,  item  24 


array  containing  the  strengths  of  the  source  distribu- 
tion for  the  store 


array  containing  the  x positions  of  the  singularity 
origins  for  the  store;  positive,  measured  from 

tip  of  store  nose 


uw  /Voo  at  v = I control  point 
i . v 


u/V  perturbation  velocity  at  a control  point  due  to 
pylon  or  wing  thickness 


uAm  perturbation  velocity  at  a control  point  due  to 
fuselage  or  store  body  singularities 


store  induced  u/V^  perturbation  velocity,  not  corrected 
for  store  incidence 


vt,  /V  at  the  v = I control  point 

W.  00  r 

i ,v 


v/V  perturbation  velocity  at  a control  point  due  to 


wing  or  pylon  thickness 


v/V^  perturbation  velocity  at  a control  point  due  to 
fuselage  or  store  body  singularities 


Table  1-5.-  Concluded 


control  point 


w/V  perturbation  velocity  at  a control  point  due  to 
wing  or  pylon  thickness 


w/V  perturbation  velocity  at  a control  point  due  to 
fuselage  or  store  body  singularities 


store  induced  w/V  perturbation  velocity,  not  ®orrected 
for  store  incidence 


perturbation  velocity  normal  to  fuselage  surface  at  a 
fuselage  control  point 


input,  item  11 


XBWOC 


XCPT(I) 


control  point 


XWSOC  ( K) 


y coordinate  of  a control  point  in  the  store  coordinate 
system 


YWSO(K) 


input,  item  11 


ZB  WO 


control  point 


coordinate  of  a control  point 


z coordinate  of  a control  point  in  the  store  coordinate 
system 


DICTIONARY  OF  NOTATION  IN  SUBROUTINE  FUSEIO 


The  following  list  presents  most  of  the  variable  names  used  in  sub- 
routine FUSEIO.  Where  possible  a variable  name  is  identified  by  a symbol 
in  the  list  of  symbols.  Where  a variable  is  an  input  quantity  it  is  so 
identified  and  section  3.2.1  of  this  report  should  be  referred  to  for  the 
definition. 


PROGRAM 

NOTATION 


ALGEBRAIC  NOTATION 


radians;  af  in  degrees  was  input  in  item  3 


ALFACR 


BODYPL 


input,  item  10 


input,  item  8 


array  containing  the  strengths  of  the  fuselage  doublet 
distribution 


input,  item  5 


input,  item  5 


FRMAX 


array  containing  the  strengths  of  the  fuselage  source 
distribution 


FXEND 


array  containing  the  x positions  of  the  fuselage 
sources;  positive,  measured  from  tip  of  nose 


number  of  constant  u-velocity  panels  in  a ring  on 
fuselage;  NBDCR1  + NBDCR2 


NBDCR1 


input,  item  9 


NBDCR2 


input,  item  9 


input,  item  9 


NCWB 


input,  item  6 


NFPOLY 


NFSOR 


NFS OR  + 1 


NXBODY 


TABLE  1-7 


DICTIONARY  OF  NOTATION  IN  SUBROUTINE  NUMACH 


The  following  list  presents  most  of  the  variable  names  used  in  sub- 
routine NUMACH.  Where  possible  a variable  name  is  identified  by  a symbol 
in  the  list  of  symbols  or  an  equation  number  in  reference  1.  Where  a 
variable  is  an  input  quantity  it  is  so  identified  and  section  3.2.1  of 

this  report  should  be  referred  to  for  the  definition.  The  x,,.yT,,zT, 

WMW’  W 

coordinate  system  is  shown  in  figure  6. 


PROGRAM 

NOTATION 


ALGEBRAIC  NOTATION 


ANGNU1 


ANGNU2 


BETANU 


length  of  local  wing  chord  at  field  point  y location 


change  in  downward  velocity  induced  by  wing  thickness 
at  points  in  XT4  traverse 


DELTW 


(XT4  - XT3)/20 


DELX 


x interval  size  used  in 
mining  XT3  and  XT4 


FNUMCH 


array  containing  x locations  of  fuselage  singularity 
origins;  positive,  measured  from  tip  of  nose 


final  index  value  of  panels  included  in  sum  of  induced 
velocities  repress!  ting  a particular  aircraft  component 

initial  index  value  of  panels  included  in  sum  of  induced 
velocities  representing  a particular  aircraft  component 


control  constant;  INUMCH  = 0,  velocity  calculations 
performed  using  M^;  INUMCH  = 1,  velocity  calculations 
performed  using  M. 


INUMCH 


number  of  thickness  panels  on  the  wing 


MSWP 

NCW 

NFSOR 

NFU 

NORDWS 

NPANLS 

NPTOT 

NPTSSM 

N2P 

S 

TANNU 

TNU 

UP 

UTU 

VEL 

VP 

VTV 

W 

WLEX 

WP 

WSAVE 


Table  1-7.-  Continued. 


MSW  + 1;  MSW  was  input  item  13 
input,  item  13 
input,  item  9 

input,  item  4;  NFU  = 0 , no  fuselage 

3;  degree  of  least  squares  polynomials  used  to  smooth 
velocities 

number  of  wing  constant  u-velocity  panels 

number  of  constant  u-velocity  panels  on  wing,  pylon, 
and  fuselage 

number  of  velocity  data  points  included  in  least 
squares  fit 

N2  + 1;  N2  is  the  number  of  constant  u-velocity  panels 
on  wing  and  pylon 

scratch  array  required  by  subroutine  FLSQFY 
tan  Av , equation  (23) 
tan-1 (TANNU) . degrees 

u/Vot  perturbation  velocity  at  a point  due  to  an  air- 
craft component 

sum  of  u/V^  perturbation  velocities  at  a point  due 
to  wing- fuselage  aircraft  components 

array  containing  the  three  velocity  component  vectors 
to  be  fit  by  least  squares  polynomial 

v/V^  perturbation  velocity  at  a point  due  to  an  air- 
craft component 

sum  of  v/V  perturbation  velocities  at  a point  due  to 
wing- fuselage  aircraft  components 

array  of  positive  weights  used  in  calculating  least 
squares  fit;  w^  = 1 , i = 1 , . . . , NPTSSM 

x„  coordinate  of  wing  leading  edge  at  field  point 

y„  location 

J w 

w/V  perturbation  velocity  at  a point  due  to  an  air- 
craft component 

test  value  of  w/VM  velocity  at  a traverse  point  due 
to  wing  thickness;  used  in  determining  XT 3 and  XT4 
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Table  1-7.-  Continued. 


WSCOE 

WTEX 

WTW 

X 

XBWOC 
XLB ( X ) 

XLF ( I ) 

XRB(X) 

XRF(I) 

XSAVE 

XSHFTW 

XSM 

XT  3 
XT4 
Y 

YLC ( I ) 
YNU 


array  containing  three  column  vectors  of  least  squares 
polynomial  coefficients,  in  row  order  of  increasing 
degree 

xw  coordinate  of  wing  trailing  edge  at  field  point 
yw  location 

sum  of  w/Vm  perturbation  velocity  at  a point  due  to 
wing- fuselage  aircraft  components 

xw  coordinate  of  point  at  which  velocities  due  to  wing 
thickness  are  calculated  in  determining  XT 3 and  XT4 

input,  item  11 

th 

coordinate  of  left  rear  corner  of  I constant 
u-velocity  panel 

xw  coordinate  of  left  front  corner  of  It'1  constant 
u-veLocity  panel 

xw  coordinate  of  right  rear  corner  of  I*"*1  constant 
u-velocity  panel 

til 

x^  coordinate  of  right  front  corner  of  I constant 
u-velocity  panel 

x^^  location  of  traverse  point  at  which  perturbation 
velocity  WSAVE  occurs 

midpoint  of  XT3 , XT4  range  based  on  local  Mach  number 

vector  of  x coordinates  of  data  points  to  be  fit  by 
least  squares  polynomial 

xw  location  of  point  on  traverse  at  which  first 
non-zero  w /V^  velocity  due  to  wing  thickness  is 
calculated 

xw  location  of  point  on  traverse  at  which 

magnitude  of  decrease  in  w/v00  velocity  due  to  wing 
thickness  is  at  least  50  percent;  XT4  £ XT3  - 0.7*CHRD 

yw  location  of  field  point  at  which  flow  field  is  to 
wbe  calculated 

yw  coordinate  of  left  edge  of  Itfl  constant  u-velocity 
panel 

p,  equation  (27) 


,.W..  - 


DICTIONARY  OF  NOTATION  IN  SUBROUTINE  PLYOUT 


The  following  list  presents  most  of  the  variable  names  used  in  sub- 
routine PLYOUT.  Where  possible  a variable  name  is  identified  by  a symbol 
in  the  list  of  symbols.  Where  a variable  is  an  input  quantity  it  is  so 
identified  and  section  3.2.1  of  this  report  should  be  referred  to  for  the 
definition.  The  xw>yw>zw  coordinate  system  is  shown  in  figure  6.  If  not 
specified,  the  panels  referred  to  in  this  dictionary  are  constant  u-veloc- 
ity  panels  located  on  the  pylon. 


PROGRAM 

NOTATION 


ALGEBRAIC  NOTATION 


length  of  pylon  root-chord;  input,  item  19 


length  of  local  pylon  chord  along  outboard  side  of 
chordwise  row 


length  of  local  pylon  chord  along  inboard  side  of 
chordwise  row 


degrees  to  radians  conversion  factor;  7t/180 


DTOR 


FAC  = 0.95;  used  to  iocate  control  point  at  95  percent 
of  chord  containing  panel  centroid 


pylon  height;  input,  item  19 


input,  item  19 


arrciy  index  of  first  pylon  panel  in  a chordwise  row 


KMAX 


number  of  constant  u-velocity  panels  on  pyjlon 


input,  item  20 


input,  item  20 


number  of  panels  in  a chordwise  row  on  wing;  input 
item  13 


number  of  constant  u-velocity  panels  on  wing 


NPANLS 


XLF(JLE) 


sweep  angle  of  pylon  leading  edge;  input,  item  19 


sweep  angle  of  pylon  trailing  edge;  input,  item  19 


■lL>J  »' 


Table  1-8.-  Concluded. 


PSLPDF 

SLLE-SLTE 

SLLE 

tan (PSIPLE) 

SLTE 

tan(PSIPTE) 

SWIPPLE(I) 

t h 

leading-edge  slope  of  I panel 

SWPPTE (I) 

trailing-edge  slope  of  Itl1  panel 

XCPT(I) 

coordinate  of  control  point  on 

Ith 

panel 

XLB ( I ) 

xw 

coordinate  of  left  rear  corner 

of  I 

th 

panel 

XLF(I) 

xw 

coordinate  of  left  front  corner 

of 

Ith 

panel 

XPLE 

input,  item  19 

XRB(I) 

x w 

coordinate  of  right  rear  corner 

of 

Ith 

panel 

XRF(I) 

xw 

coordinate  of  right  front  corner  of 

Ith 

panel 

Y (IP) 

Yw 

location  of  pylon 

YCPT(I) 

Yw 

coordinate  of  control  point  on 

Ith 

panel 

YLC(I) 

Yw 

location  of  left  edge  of  I 

panel 

YPL 

Y ( I P)  , IP  1;  0 , IP  = 0 

YRC(I) 

y W 

location  of  right  edge  of  I*"*1 

panel 

Z(K) 

input,  item  21 

ZBAR 

z 

w 

location  of  panel  centroid 

th 

ZCPT(I) 

z 

w 

coordinate  of  control  point  on 

I 

panel 

ZLC(I) 

2 w 

t h 

coordinate  of  left  edge  of  I 

panel 

ZRC(I) 

zw 

coordinate  of  right  edge  of  Ith  panel 
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TABLE  1-9 


DICTIONARY  OF  NOTATION  IN  SUBROUTINE  RESVEI, 


The  following  list  presents  most  of  the  variable  names  used  in  sub- 
routine RESVEL.  Where  possible  a variable  name  is  identified  by  a symbol 
in  the  list  of  symbols  or  an  equation  number  in  reference  1.  Where  a 
variable  is  an  input  quantity  it  is  so  identified  and  section  3.2.1  of 
this  report  should  be  referred  to  for  the  definition.  The 
coordinate  system  is  shown  in  figure  6 of  this  report. 


PROGRAM 

NOTATION 

FDS 

FSS 

FXL 

II  ,IF 


INUMCH 


ALGEBRAIC  NOTATION 

array  containing  the  strengths  of  the  fuselage  doublet 
distribution 

array  containing  the  strengths  of  the  fuselage  source 
distribution 

array  containing  the  x positions  of  the  fuselage 
singularity  origins;  positive,  measured  from  tip  of 
nose 

initial  and  final  index  values,  respectively,  of  panels 
which  induce  perturbation  velocities  representing  a 
given  aircraft  component 

control  index  used  in  subroutines  VELO  and  VELOTH 


ISMTH 

MS 

NFSOR 

NFU 

NORDWS 

N PANES 

NPTOT 

NPY 

NTHP 

NIP 


control  index  used  to  determine  whether  velocities  are 
to  be  calculated  using  least-squares  polynomial 
approximation 

number  of  thickness  panels  on  wing 

number  of  fuselage  sources;  input,  item  9 

input,  item  4;  NFU  = 0 , no  fuselage 

degree  of  least  squares  polynomial;  1 < NORDWS  £ 5 
(NORDWS  =3  in  present  program) 

number  of  constant  u-velocity  panels  on  wing 

total  number  of  constant  u-velocity  panels 

input,  item  4;  NPY  = 0 , no  pylon 

total  number  of  thickness  panels 

NPANIS  + 1 
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Table  1-9.-  Continued. 


N2 

number  of  constant  u-velocity  panels  on  wing  and  pylon 

N2P 

N2  + 1 

UP 

u /Vqq  perturbation  velocity  at  field  point  due  to  a 
component  of  the  parent  aircraft 

UTU 

sum  of  u/Voo  perturbation  velocities  due  to  parent 
aircraft 

VP 

v/VM  perturbation  velocity  due  to  a component  of  the 
parent  aircraft 

VTV 

sum  of  v/VM  perturbation  velocities  due  to  parent 
aircraft 

WP 

w/vM  perturbation  velocity  due  to  a component  of  the 
parent  aircraft 

WSCOE (I ,J) 

ith  coefficient  in  least  squares  polynomial  used  to 
calculate  jth  velocity  component;  1 _<  I ^ 6,  J = l,2 

WTW 

sum  of  w/Vo,  perturbation  velocities  due  to  parent 
aircraft 

XB 

xB  coordinate  of  point  at  which  velocity  field  is  to 
be  calculated 

XBWOC 

x coordinate  of  wing  root-chord  leading  edge;  input 

“item  11 

XP 

x location,  relative  to  XSHFTW,  of  point  at  which 
velocity  field  is  to  be  calculated 

XSHFTW 

x location  of  center  of  XT3 , XT4  range; 

W1/2(XT3  + XT4 ) 

XT  3 

x^  location  of  beginning  of  region  within  which  veloc- 
ity field  is  to  be  calculated  using  least  squares 
polynomial  approximation 

XT4 

x..  location  of  end  of  region  within  which  velocity 
"field  is  to  be  calculated  using  least  square  polyno- 
mial approximation 

XW 

xw  coordinate  of  point  at  which  velocity  field  is  to 
"be  calculated 

YB 

yQ  coordinate  of  point  at  which  velocity  field  is  to 
be  cal culated 

YW 

y coordinate  of  point  at  which  velocity  field  is  to 

dc  calculated 

ZB 

zQ  coordinate  of  point  at  which  velocity  field  is  to 
“be  calculated 
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DICTIONARY  OF  NOTATION  IN  SUBROUTINE  SEMFOR 


The  following  list  presents  most  of  the  variable  names  used  in  sub- 
routine SEMFOR.  Where  possible  a variable  name  is  identified  by  a symbol 
in  the  list  of  symbols  or  an  equation  number  in  reference  4.  Symbols  in 
figures  8 and  10  of  that  reference  are  also  used.  Where  a variable  is  an 
input  quantity,  it  is  so  identified  and  section  3.2.1  of  this  report 
should  be  referred  to  for  the  definition.  The  xB'yB'zB  coordinate  system 
is  shown  in  figure  5 of  this  report. 


PROGRAM 

NOTATION 


ALGEBRAIC  NOTATION 


ALFACR 


equation  (1-16) 


CLLEM 


CLMEM 


CLNEM 


equation  (58) 


CNEM 


equation  (59) 


CYEM 


degrees  to  radians  conversion  factor,  1/57.29578 


DTOR 


FCONA 


FCONA/Jl 


FCONB 


FCONC 


FROLE(K) 


empennage  type;  input,  item  36 

body  segment  number  at  which  the  empennage  forces  act 
number  of  tail  fins 


IPLNR 


JMAX 


input,  item  36 
input,  item  30 
input,  item  30 

number  of  points  along  store  axis  where  velocity  field 
was  calculated 


NDAMP 


NGAM 


NHSEG 


input,  item  30 


NROLL 


; input,  item  37 

average  body  radius  in  fin  region;  input,  item  37 


PHIROL 


RADAV 


RFIN(K) 


figure  10  with  s 


VAR(N) 

N = 1,2 


Vx  ; input,  item  3 

velocity  normal  to  the  surface  of  the  j 
kth  control  point 


VINF 


VRATIO 


VSTORE 


mmmm 


Table  I -10.-  Concluded 


control  point  on  the  j 


coordinate  of  a fin  control  point 


XMOM 


input,  item  32  , positive  quantity 


XTAIL 


input,  item  37 


coordinate  of  a fin  control  point 


YTAIL (K , J) 


control  point  on  the  j 


ZTAIL (K , J ) 


wmm 


TABLE  I -11 

DICTIONARY  OF  NOTATION  IN  SUBROUTINE  SEMPIN 


The  following  list  presents  most  of  the  variable  names  used  in  sub- 
routine SEMPIN  . Where  possible  a variable  name  is  identified  by  a symbol 
in  the  list  of  symbols  or  an  equation  number  in  reference  4.  Symbols  in 
figures  8 and  10  of  that  reference  are  also  used.  Where  a variable  is  an 
input  quantity,  it  is  so  identified  and  section  3.2.1  of  this  report 
should  be  referred  to  for  the  definition. 

PROGRAM 

NOTATION 

ALGEBRAIC  NOTATION 

AKK1 

Kfkj),  equation  (1-43) 

AKl 

kj,  equation  (1-42) 

ARG3 

A} , equation  (1-44) 

A2 

a1 2 * , figure  10 

A4 

a4,  figure  10 

CAPRSQ 

R2 , equation  (1-39) 

1 

CCL3 (K) 
CCL5 (K) 

(ccjj  and  (cc.)4  , equations 

since  s.  = s* 
h v 

(cCj)s  if  planar  empennage. 

(1-14)  and  (1-19) ; equal 
equation  (1-29);  (cc,)6 

CK 

CKCK 

CLALPH 

CTWGAM 

CTWTHE 

DTOR 

EAK 

EPI02K 


if  cruciform  empennage,  equations  (1-38)  and  (1-51) 
Vl  - AK1*AK1  = V 1 - k2 


1 - k2 

l 


input,  item  37 

cos  2y,  equation  (1-41) 

cos  20,  equation  (1-40) 

degrees  to  radians  conversion  factor,  1/57.29578 
E (Aj ,k , ) , equation  (1-49) 

E(ir/2,kj),  equation  (1-48) 


XMI 


ESTRMX 


max 


FCONA 


FCONA/Z 


FCONB 


FCONC 


"f  s,m'  3 

tail  fin  semispan;  input,  item  37 


empennage  type;  input,  item  36 


IPLNR 


JMAX 


number  of  tail  fins 


input,  item  36 


input,  item  30 


NROLL 


input,  item  37 


PHIROL 


average  body  radius  in  fin  region;  input,  item  37 


RADAV 


RFIN(K) 


figure  10  with  s 


STWGAM 


STWTHE 


TOVPI 


TTWGAM 


TWOTHE 


input,  item  32 


XMOM 


input,  item  37 


XTAXL 


YTAIL(K, J) 


control  point  on  the 


control  point  on  the  j 


ZTAIL (K, J) 


TABLE  1-12 


DICTIONARY  OF  NOTATION  IN  SUBROUTINE  SFORCE 


The  following  list  presents  most  of  the  variable  names  used  in  sub- 
routine SFORCE.  Where  possible  a variable  name  is  identified  by  a symbol 
in  the  list  of  symbols  or  an  equation  number  in  reference  4.  Where  a 
variable  is  an  input  quantity,  it  is  so  identified  and  section  3.2.1  of 
this  report  should  be  referred  to  for  the  definition.  The 
coordinate  system  is  shown  in  figure  5 of  this  report. 


PROGRAM 

NOTATION 


ALGEBRAIC  NOTATION 


ALFACR 


input,  item  35 


CLMBY 


CLMCF 


equation  (48) 


equation  (45) 


CLNBY 


equation  (54) 


CLNCF 


equation  (49) 


CNBY 


CNCF 


equation  (46) 


CNSB 


at  the  midpoint  of  the  NN  body 


CONA 


max 


CONB 


max 


CYBY 


equation  (43) 


CYCF 


Y CF  ' ( ji.; 

(°Y>  SB ' ecluation  (47) 

total  dCy/dxs  at  the  midpoint  of  the  NN 
segment 


Table  1-12.-  Continued 


[A] , equation  (28) 


length  of  a body  segment;  store  length  divided  by  NSEG 
which  was  input  in  item  30 


DELX 


DELX/2 


da/dxg  at  the  midpoint  of  the  i 
separated  store 


EDRDX (I) 


ERAD(I) 


ESTRMX 


max  r 

i coordinate  of  point  on  store  axis  measured  relative 
to  store  moment  center 


input,  item  30 


NDAMP 


input,  item  30 


NGAM 


number  of  points  along  store  axis  where  velocity  field 
is  to  be  calculated;  NHSEG  = 2*NSEG  + 1 


NHSEG 


number  of  points  along  store  axis  ahead  of  separation 
point  where  velocity  field  is  to  be  calculated; 
NHSEGO  = 2*NSEGX0  + 1 


NHSEGO 


NSEG 


input,  item  30 


NSEGXO 


input,  item  30 


point  along  body,  equation  (40) 


equation  (55) 


VETA 


n component  of  the  store  free-stream  velocity  vector 
equation  (32) 


VINF 


input,  item  3 


VRATIO 


Table  1-12.-  Concluded. 


VSTORE 

VT(N) 

VX 

VXI 

VY 

VZ 

VZETA 

WT  (N) 

XB 

XI 

XMOM 

XSTOR 

XXX 

YB 

ZB 

ZETA 


VMg,  equation  (41) 

V*  at  the  Nth  poi-.t  along  body,  equation  (40) 
s 

u«>  equation  (35) 

S'XS 

£ component  of  the  store  free-stream  velocity  vector, 
equation  (32) 


“Voo  equation  (35) 

s,ys 

WOT  equation  (35) 

s , 2g 

c,  component  of  the  store  free-stream  velocity  vector, 
equation  (32) 

W*  at  the  Nth  point  along  body,  equation  (40) 

x_  coordinate  of  a point  along  store  body  axis 
B 

£ coordinate  of  a point  on  store  axis  measured,  relative 
to  store  moment  center 

x ; input,  item  32 
s /in 

x coordinate  of  point  on  store  axis 
s 

x coordinate  of  point  on  store  axis 

y coordinate  of  a point  along  store  body  axis 

z_  coordinate  of  a point  along  store  body  axis 
B 

£ coordinate  of  a point  on  store  axis  measured  relative 
to  store  moment  center 
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DICTIONARY  OF  NOTATION  IN  SUBROUTINE  SOUTPT 


The  following  list  presents  most  of  the  variable  names  used  in  sub- 
routine SOUTPT.  Where  possible  a variable  name  is  identified  by  a symbol 
in  the  list  of  symbols  or  an  equation  number  in  reference  4.  The  x-.jy-.jZ,, 

odd 

coordinate  system  is  shown  in  figure  5 of  this  report. 


PROGRAM 

NOTATION 


ALGEBRAIC  NOTATION 


CLLEM 


CLLT 


CLMBY 


CLMCF 


CLMEM 


equation  (48) 


CLMSB 


CLMT 


CLNBY 


CLNCF 


CLNEM 


CLNSB 


CENT 


equation  (42) 


CNBY 


CNCF 


CNEM 


equation  (46) 


CNSB 


total  dCM/dx  at  the  midpoint  of  the  K body  segment 


CYBY 


Table  1-13.-  Continued. 


CYCF 

CYEM 

CYSB 

CYT 

CYX(K) 

DC ( I , J ) 


DVAR(N) , 

N = 1,2, . . .12 

DXB  C coordinate  of  the  store  base  at  time  t relative  to 

where  it  would  have  been  had  it  remained  in  the  t = 0 
position  on  the  aircraft 

DXCG  £ coordinate  of  the  store  moment  center  at  time  t 

relative  to  where  it  would  have  been  had  it  remained 
in  the  t = 0 position  on  the  aircraft 

DXN  5 coordinate  of  the  store  nose  at  time  t relative  to 

where  it  would  have  been  had  it  remained  in  the  t = 0 
position  on  the  aircraft 

DYB  T)  coordinate  of  the  store  base  at  time  t relative  to 

where  it  would  have  been  had  it  remained  in  the  t = 0 
position  on  the  aircraft 

DYCG  n coordinate  of  the  store  moment  center  at  time  t 

relative  to  where  it  would  have  been  had  it  remained 
in  the  t = 0 position  on  the  aircraft 

DYN  n coordinate  of  the  store  nose  at  time  t relative  to 

where  it  would  have  been  had  it  remained  in  the  t = 0 
position  on  the  aircraft 

DZB  X,  coordinate  of  the  store  base  at  time  t relative  to 

where  it  would  have  been  had  it  remained  in  the  t = 0 
position  on  the  aircraft 

DZCG  i;  coordinate  of  the  store  moment  center  at  time  t 

relative  to  where  it  would  have  been  had  it  remained 
in  the  t = 0 position  on  the  aircraft 

DZN  C coordinate  of  the  store  nose  at  time  t relative  to 

where  it  would  have  been  had  it  remained  in  the  t = 0 
position  on  the  aircraft 


(CVcf'  e<Iuation  (52) 

(C„)E>,  equation  (59) 

Y r. 

(Cy)Sb'  e<3uation  (47> 
total  C^ 

t Jl 

total  dCY/dxg  at  the  midpoint  of  the  K body  segment 
[A] , equation  (28) 

£,n,C,p,q,r  ,C,n»5,'il  respectively 


ESTLGC 


1 of  separated  store 


;-V '4  ■’ 


Table  1-13.-  Continued. 


EXST(J) 

FTHRUS 


XBASE 
XBASE I 
XCGI 
XI 

XL 

XMOM 

XNOSE 

XNOSEI 

XXX 

YbASE 

YBASEI 

YCGI 


n coordinate  of  point  on  store  axis  measured  relative 
to  store  moment  center 

t h 

xs  at  the  J point  along  store  axis 
store  thrust  force 


NTHRUS 

input , 

item 

30;  NTHRUS  = 

0 , no 

thrust 

PHI 

degrees 

PSI 

degrees 

SLTHC (NEJSTR) 

l 

s 

of 

separated  store 

THA 

0, 

degrees 

TIME 

t 

UT  ( J) 

u* 

s 

at 

Jth 

point  along 

store 

axis 

VAR (N)  , 

N = 1,2,  . . .12 

• 

£ f 

n,c,p 

,q,r , 

£,  n , C .4*  »0»4> 

respectively 

VT  ( J) 

V* 

s 

at 

Jth 

point  along 

store 

axis 

WT  ( J) 

w* 

s 

at 

Jth 

point  along 

store 

axis 

£ coordinate  of  separated  store  base  at  time  t 

£ coordinate  of  separated  store  base  at  t = 0 

£ coordinate  of  separated  store  moment  center  at  t = 0 

£ coordinate  of  point  on  store  axis  measured  relative 
to  store  moment  center 

V4s 

xs  ,m 

£ coordinate  of  separated  store  nose  at  time  t 

£ coordinate  of  separated  store  nose  at  t = 0 

x coordinate  of  point  on  store  axis 
n coordinate  of  separated  store  base  at  time  t 

n coordinate  of  separated  store  base  at  t = 0 

n coordinate  of  separated  store  moment  center  at  t = 0 
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Table  I 

-13 

Concluded. 

YNOSE 

n 

coordinate 

of 

separated 

store 

nose 

at 

time 

t 

YNOSEI 

n 

coordinate 

of 

separated 

store 

nose 

at 

t = 

0 

ZBASE 

c 

coordinate 

of 

separated 

store 

base 

at 

time 

t 

ZBASEI 

c 

coordinate 

of 

separated 

store 

base 

at 

t = 

0 

ZCGI 

c 

coordinate 

of 

separated 

store 

moment  center 

at  t = 

ZETA 

r. 

coordinate 

of 

point  on  i 

store  axis  measured 

relative 

to  store  moment 

center 

ZNOSE 

C 

coordinate 

of 

separated 

store 

nose 

at 

time 

t 

ZNOSEI 

coordinate 

of 

separated 

store 

nose 

at 

t = 

0 

TABLE  1-14 

DICTIONARY  OF  NOTATION  IN  SUBROUTINE  S^ORIO 

The  following  list  presents  most  of  the  variable  names  used  in  sub- 
routine STORIO.  Where  possible  a variable  name  is  identified  by  a symbol 
in  the  list  of  symbols.  Where  a variable  is  an  input  quantity  it  is  so 
identified  and  section  3.2.1  of  this  report  should  be  referred  to  for  the 
definition.  The  x^,yw,zw  coordinate  system  is  shown  in  figure  6. 


PROGRAM 

NOTATION 

ALGEBRAIC  NOTATION 

ALFACR 

, radians;  in  degrees  was  input  in  item  3 

ALFAS(K) 

ALFACR  + SI  BCR (K) 

DTOR 

degrees  to  radians  conversion  constant;  tt/180 

MS  HA  PE 

input,  item  26 

MS  OR 

input,  item  26 

NCW 

input,  item  13 

NSHAPE(K) 

input,  item  24 

NSHPT 

input,  item  25 

NSPOLJ 

input,  item  27 

NS POLY (K) 

number  of  polynomials  used  to  specify  the  shape 
Kfch  store 

of  the 

NSSOR(K) 

number  of  sources  in  the  source  distribution  representing 
the  store 

NSTRS 

input,  item  4;  NSTRS  limited  to  one  in  present 

program 

NUMSTR (K) 

input,  item  24 

NX BODY 

MSOR  + 1 

SCOEF ( I ,J,K) 

jth  coefficient  of  Ith  polynomial  describing 
shape  of  the  Kth  store 

the 

SCOFJ 

input,  item  29 

SDS(L,K) 

array  containing  the  strengths  of  the  store 

doublet  distribution 
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Table  1-14.-  Concluded. 


SIBCR(K) 

SIC (J ) *DTOR 

SIC (K) 

input,  item  24 

SLTHC(K) 

length  of  Jth  store;  input,  item  24 

SRMAX (K) 

maximum  radius  of  Jth  store;  input,  item  24 

SSS (L,K) 

array  containing  the  strengths  of  the  K^1  store  source 
distribution 

SXEND (I ,K) 

end  points  of  polynomial  sections  specifying  shape  of 
Kth  store 

SXNDJ 

input,  item  28 

SXL (L ,K) 

array  containing  the  x positions  of  the  singularity 
origins  for  the  Kth  store;  positive,  measured  from 
tip  of  nose 

T(J) 

jth  source  strength 

TC  ( J ) 

jth  doublet  strength 

TX  ( J ) 

x location  of  Jth  singularity  origin;  positive, 
measured  from  tip  of  body  nose 

XRF(J) 

xw  coordinate  of  right  front  corner  of  constant 

u-velocity  wing  panel 

XSNC(J) 

input,  item  24 

XWSOC(J) 

xw  coordinate  of  tip  of  nose  of  Jth  store 

Y(I) 

input,  item  14 

YSN(J) 

input,  item  24 

YWSO (J ) 

yw  coordinate  of  tip  of  nose  of  Jt}l  store 

ZSN(J) 

input,  item  24 

ZWSO(J) 

zw  coordinate  of  tip  of  nose  of  store 
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TABLE  1-15 


DICTIONARY  OF  NOTATION  IN  SUBROUTINE  THKLYT 


The  following  list  presents  most  of  the  variable  names  used  in  sub- 
routine THKLYT.  Where  possible  a variable  name  is  identified  by  a symbol 
in  the  list  of  symbols.  Where  a variable  is  an  input  quantity  it  is  so 
identified  and  section  3.2.1  of  this  report  should  be  referred  to  for  the 
definition. 


PROGRAM 

NOTATION 


ALGEBRAIC  NOTATION 


input,  item  19 


length  of  local  chord  on  left  side  of  a chordwise  row 
of  panels 


length  of  local  chord  on  right  side  of  a chordwise  row 
of  panels 


degrees  to  radians  conversion  constant;  tt/180 


DTOR 


input,  item  19 


index  of  array  location  of  the  first  panel  in  a 
chordwise  row 


control  variable;  if  wing  leading-edge  and  trailing- 
edge  sweep  angles  constant  at  all  spanwise  stations 
LVSWP  -=0;  if  not  constant,  LVSWP  = 1 


LVSWP 


number  of  thickness  panels  on  wing 


MSW  + 1;  MSW  was  input,  item  13 


MSWP 


NCPS 


input,  item  17 


NCWS 


input,  item  4;  NPY  = 0 , no  pylon 


number  of  thickness  panels  on  wing  and  pylon 


NTHP 


( coordinate  of  pylon  leading  edge  on  right  side  of 
a chordwise  row 


PLEX 


PSIWLE 


PSIWTE 


SLLE  - SLTE;  SLTE  is  slope  of  pylon  trailing  edge 


thickness  panel 


SLPWLE  - SLPWTE 


SLPWLE 


tan [PSIWTE (I) ] 


SLPWTE 


slope  of  trailing  edge  of  It'1  thickness  panel 

xw  coordinate  of  wing  leading  edge  on  right  side  of 
a chordwise  row 


WLEX 


thickness 


XLBT ( I ) 


XLFT(I) 


XRFT(I) 


input,  item  14 


YLCT ( I ) 


yw  location  of  pylon 

yvj  coordinate  of  right  side  of  I 


YRCT ( I ) 


input,  item  21 


coordinate  of  right  side  of  I 


thickness  panel 


TABLE  X-16 


DICTIONARY  OF  NOTATION  IN  SUBROUTINE  VELBD 


The  following  list  presents  most  of  the  variable  names  used  in  sub- 
routine VELBD.  Where  possible  a variable  name  is  identified  by  a symbol 
in  the  list  of  symbols  or  an  equation  number  in  reference  1.  Where  a 
variable  is  an  input  quantity  it  is  so  identified  and  section  3.2.1  of 
this  report  should  be  referred  to  for  the  definition.  The  wing  coordinate 
system  is  shown  in  figure  6 of  this  report. 


PROGRAM 

NOTATION 


ALGEBRAIC  NOTATION 


cosine  of  orientation  angle  of  Kth 
1/tt (u+I/Voo)  ; singularity  strength,  < 
ith  constant  u-velocity  panel 


DELTP ( I ) 


logical  variables;  TRUE  whenever  non-zero  corner 
influence  functions  are  calculated 


FELT , FELTa 
a = A ,AI ,B ,BI 


final  value  of  fuselage  panel  DO  loop  index 


initial  value  of  fuselage  panel  DO  loop  index 


number  of  constant  u-velocity  panels  on  wing  and  pylon 


logical  variable;  FALSE  if  influencing  panel  is  not  a 
pylon  panel 


PYPNL 


SNT2 (K) 


THTI (K) 


fuselage  panel 


direction 


superposed  corner  influence  functions  in  z, 


F , equation  (12) 


if  II  / IF,  sum  of  u/Vjh,  perturbation  velocities  at 
field  point  due  to  fuselage  panels,  if  II  * IF, 
influence  coefficient  of  II*h  panel  and  given  control 
point 


Table  1-16.-  Concluded. 


V 

VP 

W 

WP 

X 

XI 

XLB ( I ) 
XLF(I) 
XRB(I) 
XRF(I) 

XX 

Y 
YI 

YLC(I) 
YRC ( I ) 


F , equation  (12) 

if  II  / IF,  sum  of  v/Vm  perturbation  velocities  at 
field  point  due  to  fuselage  panels;  if  II  = IF, 
influence  coefficient  of  Ilth  panel  and  given  control 
point 

Fw,  equation  (12) 

if  II  t IF,  sum  of  w/Voo  perturbation  velocities  at 
field  point  due  to  fuselage  panels;  if  II  = IF, 
influence  coefficient  of  Ilth  panel  and  given  control 
point 

x coordinate  of  field  point  (see  section  1-35) 
c 

local  subroutine  equivalent  of  XX 

x coordinate  of  left  rear  corner  of  It^1  panel; 
right  is  clockwise  from  left , looking  forward 

x coordinate  of  left  front  corner  of  lfc^  panel; 
right  is  clockwise  from  left , looking  forward 

x coordinate  of  right  rear  corner  of  I*'*1  panel; 
right  is  clockwise  from  left , looking  forward 

x coordinate  of  right  front  corner  of  Ith  panel; 
right  is  clockwise  from  left , looking  forward 

xw  coordinate  of  field  point 

yc  coordinate  of  field  point  (see  section  1-35) 

local  subroutine  equivalent  of  YY 

yw  coordinate  of  left  edge  of  Ith  panel;  right  is 
clockwise  from  left  , looking  forward 

y coordinate  of  right  edge  of  1^  panel;  right  is 
clockwise  from  left  , looking  forward 


YY  yw  coordinate  of  field  point 

Z zq  coordinate  of  field  point  (see  section  1-35) 

ZI  local  subroutine  equivalent  of  ZZ 


ZLC ( I ) 

z coordinate  of  left  edge  of 

Wclockwise  from  left,  looking 

I*-h  panel;  right  is 

forward 

ZRC(I) 

zw  coordinate  of  right  edge  of 
clockwise  from  left  , looking 

+■  Vi 

I panel;  right  is 

forward 

ZZ 

coordinate  of  field  point 

jit 

i A. 

i 
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TABLE  1-17 


DICTIONARY  OF  NOTATION  IN  SUBROUTINE  VELO 


The  following  list  presents  most  of  the  variable  names  used  in  sub- 
routine VELO.  Where  possible  a variable  name  is  identified  by  a symbol 
in  the  list  of  symbols  or  an  equation  number  in  reference  1.  Symbols 
defined  in  section  11-2.1  of  that  reference  are  also  used.  Where  a vari- 
able is  an  input  quantity  it  is  so  identified  and  section  3.2.1  of  this 
report  should  be  referred  to  for  the  definition.  The  coordinate  system 
associated  with  a semi-infinite  triangle  is  shown  in  figure  3 of  reference  1. 


PROGRAM 

NOTATION 

ALGEBRAIC  NOTATION 

ARG1 

x2  - P2  (y2  + z2) 

BETA 

P;  BETANU,  if  INUMCH  = 

otherwise 

BETANU 

(m|  - l)l/a 

BETAOL 

- D*/a 

BTSQ 

BETA* BETA 

3TSQOL 

M2  - 1 

00 

EML 

Mie 

EMLSQ 

EMI.*  EML 

FELT 

logical  variable,  FALSE 

routine  with  U = V = l 

FI 

F 

l 

F2 

F_ 

2 

F4 

F 

4 

F5 

F 

c 

F7 

F 

7 

INSIDE 

logical  variable;  TRUE 

cone  from  origin  of  triangle 


Concluded 


control  index  used  to  determine  choice  of  BETANU  or 
BETAOL  (see  section  1-18) 


INUMCH 


logical  variable,  TRUE  if  semi-infinite  triangle  is 
located  on  the  pylon 


PYPNL 


(ARG1) 


R00TA1 


BTSQ  - EMLSQ 


tolerance  factor  related  to  the  wing  semispan 
represent  zero  in  subroutine  logical  tests 


TLRNC 


F (x,y  ,z  , equation  (12) 


coordinate  of  field  point  in  system  associated  with 
semi-infinite  triangle 


coordinate  of  field  point  in  system  associated  with 
semi-infinite  triangle 


coordinate  of  field  point  in  system  associated  with 
corner  of  influencing  panel 


z coordinate  of  field  point  in  system  associated  with 
semi-infinite  triangle 


TABLE  1-18 

DICTIONARY  OF  NOTATION  IN  SUBROUTINE  VELPP 

The  following  list  presents  most  of  the  variable  names  used  in  sub- 
routine VELPP.  Where  possible  a variable  name  is  identified  by  a symbol 
in  the  list  of  symbols  or  an  equation  number  in  reference  1.  Where  a 
variable  is  an  input  quantity  it  is  so  identified  and  section  3.2.1  of 
this  report  should  be  referred  to  for  the  definition.  The  x,.,yr . zrT  coor- 

^ w’-'w  w 

dinate  system  is  shown  in  figure  6. 


PROGRAM 

NOTATION 


ALGEBRAIC  NOTATION 


CENTER 


logical  variable;  TRUE  if  pylon  is  located  under  the 
fuselage  centerline 


DELTP 


u+/'tV00;  array  containing  constant  u-velocity  panel 
singularity  strengths,  divided  by  v 

slope  of  leading  edge  of  influencing  panel 

slope  of  trailing  edge  of  influencing  panel 


FELT , FELTa 
a = A,AI ,B,BI 


logical  variables;  TRUE  whenever  non- zero  influence 
functions  are  calculated 


final  value  of  panel  DO  loop  index 
initial  value  of  panel  DO  loop  index 


PYPNL 


logical  variable  required  by  subroutine  VELO;  TRUE  if 
influencing  panel  is  a pylon  panel 


SWPPLE (I) 


tangent  of  leading-edge  sweep  angle  of  I constant 
u-velocity  panel 


SWPPTE ( I ) 


tangent  of  trail ing-edge  sweep  angle  of  I 
u-velocity  panel 


constant 


superposed  corner  influence  functions  in  x^  direction 

superposed  corner  influence  functions  in  y^  direction 

superposed  corner  influence  functions  in  z^  direction 

Fu  , equation  (12) 

if  II  / IF,  sum  of  u/VM  perturbation  velocities  at 
field  point  due  to  pylon  constant  u-veloc- ty  panels; 
if  II  * IF,  influence  coefficient  of  Ilth  panel  and 

given  control  point 


Fv>  equation  (12) 


207 


if  II  £ IF,  surr,  of  v/Voo  perturbation  velocities  at 
field  point  due  to  pylon  constant  u-velocity  panels; 
if  II  = IF,  influence  coefficient  of  Ilth  panel 
and  given  control  point 


equation 


if  II  £ IF,  sum  of  w/VM  perturbation  velocities  at 
field  point  due  to  pylon  constant  u-velocity  panels; 
if  II  = IP,  influence  coefficient  of  11*-^  panel  and 
given  control  point 


x coordinate  of  field  point  in  system  required  by 
subroutine  VELO 


coordinate  of  left  front  corner  of 
velocity  panel 


r coordinate  of  right  rear  corner  of 
u-velocity  panel 


constant 


y coordinate  of  field  point  in  system  required  by 
subroutine  VELO 


yc  coordinate  of  field  point  (see  section  1-39) 

y coordinate  of  image  of  field  point  with  respect  to 
Sircraft  vertical  plane  of  symmetry  (see  section  1-39) 


YDIR 


YIMG 


location  of  pylon 


coordinate  of  field  point 


coordinate  of  field  point  in  system  required  by  sub- 
routine VELO 


local  subroutine  equivalent  of  ZZ 


z coordinate  of  left  edge  of  I 
wpanel 


constant  u-velocity 


DICTIONARY  OF  NOTATION  IN  SUBROUTINE  VELPTH 


The  following  list  presents  most  of  the  variable  names  used  in  sub- 
routine VELPTH.  Where  possible  a variable  name  is  identified  by  a symbol 
in  the  list  of  symbols  or  an  equation  number  in  reference  1.  Where  a 
variable  is  an  input  quantity  it  is  so  identified  and  section  3.2.1  of 

this  report  should  be  referred  to  for  the  definition.  The  xT,.y,,,z 
r W W’  w 

coordinate  system  is  shown  in  figure  6. 


PROGRAM 

NOTATION 


ALGEBRAIC  NOTATION 


logical  variable;  TRUE  if  pylon  is  located  under  the 
fuselage  centerline 


CENTER 


THETPL  (I)  /tt;  THETPL(I)  was  input  item  23 


logical  variables;  TRUE  whenever  non-zero  corner 
influence  functions  are  calculated 


FELT , FELTa 
a = A,AI ,B,BI 


nitial  and  final  values,  respectively,  of  influencing 
panel  DO  loop  index 


logical  variable  used  by  subroutine  VELOTH;  TRUE  if 
influencing  panel  is  a pylon  panel 


PYPNL 


SLTET(I) 


thickness 


direction 


superposed  corner  influence  functions  in  y 


direction 


superposed  corner  influence  functions  in  z 


sum  of  u/Vo,  perturbation  vel 
due  to  pylon  thickness  panels 


equation  (14) 


Table  1-19.-  Concluded. 


VP 

w 


sum  of  v/Vqq  perturbation  velocities  at  the  field 
point  due  to  pylon  thickness  panels 

Fw  , equation  (14) 


WP  sum  of  w/Vqq  perturbation  velocities  at  the  field 

point  due  to  pylon  thickness  panels 

X x coordinate  of  field  point  in  system  required  by  sub- 

routine VELOTH 


XI 


local  subroutine  equivalent  of  XX 


XLBT(I) 
XLFT ( I ) 
XRBT(I) 
XRFT(I) 


x coordinate  of  left  rear  corner  of  1^  thickness 
Wpanel 

t h • 

x,,  coordinate  of  left  front  corner  of  I thickness 

w -i 

panel 

x coordinate  of  right  rear  corner  of  Ith  thickness 

panel 

tt"* 

x coordinate  of  right  front  corner  of  I thickness 
panel 


XX  x coordinate  of  field  point 

Y y coordinate  of  field  point  in  system  required  by 

subroutine  VELOTH 


YDIR 

YIMG 

YPL 

YY 

Z 


yc  coordinate  of  field  point  (see  section  1-39) 

y coordinate  of  image  of  field  point  with  respect  to 
caircraft  vertical  plane  of  symmetry  (see  section  1-39) 

yw  location  of  pylon  in  wing  coordinate  system 

yw  coordinate  of  field  point 

z coordinate  of  field  point  in  system  required  by  sub- 
routine VELOTH 


ZI 

local  subroutine  equivalent  of  ZZ 

ZLCT(I) 

zw 

f V 

coordinate  of  left  edge  of  I 

thickness  panel 

ZRCT(I) 

zw 

coordinate  of  right  edge  of  It}l 

thickness  panel 

ZZ 

zw 

coordinate  of  field  point 
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I 


; ■ 


TABLE  1-20 

DICTIONARY  OF  NOTATION  IN  SUBROUTINE  VELWP 


The  following  list  presents  most  of  the  variable  names  used  in  sub- 
routine VELWP.  Where  possible  a variable  name  is  identified  by  a symbol 
in  the  list  of  symbols  or  an  equation  number  in  reference  1.  Where  a 
variable  is  an  input  quantity  it  is  so  identified  and  section  3.2.1  of 
this  report  should  be  referred  to  for  the  definition.  The  xw,yw,zw 
coordinate  system  is  shown  in  figure  6. 


PROGRAM 

NOTATION  ALGEBRAIC  NOTATION 


DELTP 

EMI 


u ,+/('^V00)  J array  containing  constant  u-velocity  panel 
singularity  strengths,  divided  by  v 

slope  of  influencing  panel  leading  edge 


EM2 


slope  of  influencing  panel  trailing  edge 


FELT,FELTa  logical  variable;  TRUE  whenever  non-zero  corner 

a = A , AI , B , BI  influence  functions  are  calculated 


IF 


final  value  of  panel  DO  loop  index 


II 

PYPNL 
SWPPLE(I) 
SWPPTE (I ) 


initial  value  of  panel  DO  loop  index 

logical  variable;  TRUE  if  influencing  panel  is  a pylon 
panel 

tangent  of  leading-edge  sweep  angle  of  It*1  constant 
u-velocity  panel 

tangent  of  trailing-edge  sweep  angle  of  It^1  constant 
u-velocity  panel 


TU 

superposed 

corner 

influence 

in 

xw 

direction 

TV 

superposed 

corner 

influence 

in 

yw 

direction 

TW 

superposed 

corner 

influence 

in 

2w 

direction 

U F , equation  (12) 

UP  if  II  / IF,  sum  of  u/Voo  perturbation  velocities  at 

field  point  due  to  wing  constant  u-velocity  panels; 
if  II  = IF,  influence  coefficient  for  lit*1  panel  and 
given  control  point 


a 


V 


F , equation  (12) 


i 


[ ' 

M 

; ,i 


Table  1-20.-  Concluded. 


y coordinate  of  field  point  in  system  required  by  sub- 
routine VELO 


YI 

local  subroutine  equivalent 

of 

YY 

YLC ( I ) 

"I 

^ coordinate  of  left  edge 
lanel 

of 

Itn  constant  u-velocity 

YRC ( 1 ) 

l 

coordinate  of  right  edge 
I-velocity  panel 

of 

Tth 

I constant 

VP 

if  II  IF,  sum  of  v/VK  perturbation  velocities  at 

field  point  due  to  wing  constant  u-velocity  panels; 
if  II  = IF,  influence  coefficient  for  Ilth  panel  and 
given  control  point 

w 

Fw>  equation  (12) 

WP 

if  II  IF,  sum  of  w/Vco  perturbation  velocities  at 

field  point  due  to  wing  constant  u-velocity  panels; 
if  II  = IF,  influence  coefficient  for  11*^  panel  and 
given  control  point 

X 

x coordinate  of  field  point  in  system  required  by  sub- 
routine VELO 

XI 

local  subroutine  equivalent  of  XX 

XLB(I) 

^ coordinate  of  left  rear  corner  of  Itl_l  panel, 
viewed  from  the  rear 

XLF(I) 

xw  coordinate  of  left  front  corner  of  1^  constant 
u-velocity  panel 

XRB(I) 

x coordinate  of  right  rear  corner  of  Ith  constant 

u-velocity  panel 

XRF(I) 

xw  coordinate  of  right  front  corner  of  lt^1  constant 
u-velocity  panel 

XX 

xw  coordinate  of  field  point 

YY 

Z 

zz 


yw  coordinate  of  field  point 

z coordinate  of  field  point  in  system  required  by 
subroutine  VELO 

zw  coordinate  of  field  point 
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DICTIONARY  OF  NOTATION  IN  SUBROUTINE  VELWTH 


The  following  list  presents  most  of  the  variable  names  used  in  sub- 
routine VELWTH.  Where  possible  a variable  name  is  identified  by  a symbol 
in  the  list  of  symbols  or  an  equation  number  in  reference  1.  Where  a 
variable  is  an  input  quantity  it  is  so  identified  and  section  3.2.1  of 
this  report  should  be  referred  to  for  the  definition.  The  x , y ,z 

WWW 

coordinate  system  is  shown  in  figure  6. 


PROGRAM 

NOTATION 


ALGEBRAIC  NOTATION 


THETAL (I) /tt;  THETAL(I)  was  input,  item  23 


DZDX(I) 


slope  of  trailing  edge  of  influencing  panel 


logical  variable;  TRUE  whenever  non-zero  corner 
influence  functions  are  calculated 


FELT , FELTa 
a = A , AI  , B , BI 


initial  and  final  values,  respectively,  of  influencing 
panel  DO  loop  index 


logical  variable  used  by  subroutine 
influencing  panel  is  a wing  panel 


PYPNL 


tangent  of  leading-edge  sweep  angle  of  I 
panel 


thickness 


superposed  corner  influence  functions  in  x direction 


sum  of  u/Vqq  perturbation  velocities  due  to  wing 
thickness  panels 


F , equation  (14) 
vt 

sum  of  v/Voo  perturbation  velocities  due  to  wing 
thickness  panels 


Table  1-21.-  Concluded. 


WP  sum  of  w/Voq  perturbation  velocities  due  to  wing 

thickness  panels 

X x coordinate  of  field  point  in  system  required  by  sub- 

routine VELOTH 


XI 

XLBT(I) 

XLFT(I) 

XRBT(I) 

XRFT(I) 


local  subroutine  equivalent  of  XX 

x coordinate  of  left  rear  corner  of  Ith  thickness 
panel 

x coordinate  of  left  front  corner  of  1^  thickness 

panel 

th 

x coordinate  of  right  rear  corner  of  I thickness 

]2>anel 

th 

x coordinate  of  right  front  corner  of  I thickness 
panel 


XX  x coordinate  of  field  point 

w 

Y y coordinate  of  field  point  in  system  required  by  sub- 

routine VELOTH 


YI  local  subroutine  equivalent  of  YY 


YLCT(I) 

yw 

coordinate 

of 

left  edge  of 

Ith 

thickness  panel 

YRCT(I) 

coordinate 

of 

right  edge  of 

Ith 

thickness  panel 

YY 

coordinate 

of 

field  point 

Z 

z coordinate  of 
routine  VELOTH 

field  point  in 

system  required  by  sub- 

ZLCT(I) 

2w 

coordinate 

of 

left  edge  of 

Ith 

thickness  panel 

ZRCT(I) 

zw 

coordinate 

of 

right  edge  of 

Ith 

thickness  panel 

Z2 

zw 

coordinate 

of 

field  point 
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TABLE  1-22 

DICTIONARY  OF  NOTATION  IN  SUBROUTINE  WLYOUT 


The  following  list  presents  most  of  the  variable  names  used  in  sub- 
routine WLYOUT.  Where  possible  a variable  name  is  identified  by  a symbol 
in  the  list  of  symbols.  Where  a variable  is  an  input  quantity  it  is  so 
identified  and  section  3.2.1  of  this  report  should  be  referred  to  for  the 
definition.  If  not  specified,  panels  referred  to  in  this  dictionary  are 
constant  u-velocity  panels.  The  XW>YW>ZW  coordinate  system  is  shown  in 
figure  6. 


PROGRAM 

NOTATION 

CRW 

CSIDE 

CSIDEP 

DTOR 

FAC 

JLE 

LVSWP 

MSWP 
NCW 
N PANES 


ALGE BRAIC  NOTATI ON 


input,  item  12 

length  of  local  wing  chord  along  outboard  edge  of  a 
chordwise  row  of  panels 

length  of  local  wing  chord  along  inboard  edge  of  a 
chordwise  row  of  panels 

degrees  to  radians  conversion  constant;  7r/180 

constant  used  to  locate  XCPT(J)  at  95  percent  of  the 
chord  containing  the  panel  centroid;  FAC  = 0.95 

index  of  front  panel  in  a chordwise  row 

control  vari  tble;  if  leading-edge  and  trailing-edge 
sweep  angles  constant  for  entire  wing,  LVSWP  = 0;  if 
not  constant,  LVSWP  = 1 

MSW  4-  1;  MSW  is  input,  item  13 

input,  item  13 

number  of  constant  u-velocity  panels  on  wing;  NCW*MSW 


PSIWLE 
PSIWTE 
SLPDIF 
SLPWLE 
SLPWTE 
SWPPLE (I) 


input,  item  14 
input,  item  14 
SLPWLE  - SLPWTE 
tan [PSIWLE (I)  ] 
tan [PSIWTE (I)  ] 

tangent  of  leading-edge  sweep  angle  of  I*"*1  constant 
u-velocity  panel 
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tangent  of  trailing-edge  sweep  angle  of 
u-velocity  panel 


SWPPTE (I) 


x coordinate  of  wing  leading  edge  on  right  edge  of  a 
chordwise  row 


WLEX 


XCPT(I) 


input,  item  14 


YBAR 


YCPT ( I ) 


control  point 


control  point 


JilOAdM 


HAMT3A 


dJVTCSA 


Hld33A 


dd33A 


033A 


3VD33A 


r^iii 


JilOMHi 
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NOSWIS 
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H03W3S 
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NIHiLAd 
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Common  statements  and  the  routines  in  which  they  appear. 


VELPTH 

VELOTH 

(a)  Page  1. 

Figure  I -2.-  Subroutine  calling  aequence. 


I 


1 


J 


j 

j 

! 


Figure  1-2.  - Continued. 


MAIN 

Contd, 


VELCAL 


VELOTH 


VELWTH 


SIMS ON 


STTOIN 


INTOST 


THRCAL 


! - , 

I 

i 

! i 

| 

-UbRoUTlM 
S FORCE 


ADO 

EMPLWNAG: 
FORCES  AND 
MOMENTS  TO 
BODY  VALUES 


LMI  ENNAGE 


CALI. 

SUBROUTINE 

SEMFOR 


CALL 

pl.BROUTINE 

INTOST 


/''capt  iviN 

STORE 

TRAJECTORY 


THRUST 


CALL 

SUBROUTINE 

DIRCOS 


( CALL  \ 

subroutine' 

\ THRCAL  / 


CALCULATE 
EQUATIONS  OF 
MOTION  ' 'OEFFICI ENT 
MATRIX 

{ EQS. (ll-16)-(ll-18> 

AND  EQS.  (11-41)- (II- 41) 
OF  REF.  4 ) 


CALCULATE 
TERMS  NOT 
INVOLVING 


CALCULATL 
TERMS  NOT 
INVOLVING 


TERMS 

INVOLVING 


c.g.  " 

OFFSET 


CALCULATE 
RIGHT-HAND  SIDES 
OF  EQUATION* 

OF  MOTION 


CALCULATE 

STORE 

GRAVITATIONAL 

FORCE 

COMPONENTS 
(EQ. (67) , REF. 41 


ADD  IN  x, 
y.Z  TERMS 
NOT,  IflVt^LVlNG 
p,q,r 

(EQ.  (11-15)  , 
RLF.4) 


CALCULATE 


(EOS.  (69), (70) 
AND  (72)  , 
rf  y 4* 


ADD  IN 
x,y,i  TERMS 
( EQS .(11-41)- 
(11-43) , 
REF.  4.  ALSO 
SEE  EQ. < 71 , ) 


SUM  UP 
BODY 

AERODYNAMIC 
FORCES 
AND  MOMENTS 


figure  1-3.-  Flow  chart  <f  integration  loop  of  main  program. 


resolve 
'RANSLATIONAi 
EQUATIONS 
RIGHT-HAND 
SIDES  INTO 
inertia:. 
SYSTEM 


SUBROUTINE 

ADAMS 


RETURN 

TO 

FIRST 
. INPUT 


NDIFEQ  * I 


ADD  INERTIA 
TERMS  TO 
ROTATIONAL 
EQUATIONS 
RIGHT-HAND 
SIDES 


NDIFEQ  > 


CALL 

SUBROUTINE 

INVET.S 


SOLVE  FOR 
ACCELERATIONS 


TRANSFER 
ACCELERATIONS 
TO  DVAft 
ARRAY 


PVT  C,n 

C INTO 
DVAR  (7) 
THRU  DVAR  (9) 


Cfl#-K  FOR 
END  OF  INTEGRATION 
STEP 


NOUT  - 1 


CALL 

SUBROUTINE 

SOUTPT 


NOUT 


end  or 

TRAJECTORY  ? 


EQUAL 

FINAL 

TIME 


Concluded. 


COMPUTE 


DOUBLE 


COMPUTE 


INITIAL 
INTEGRATION 
I NTERVAL 


SAVE  STARTING 
VALUES  OF 
DEPENDENT 
I VARIABLES 


SAVE 


NDIFEQ  - 4 


SAVE  VARIABLES  AT 
j ♦ I AND  DERIVA- 
TIVES AT  ] FOR 
POSSIBLE  FUTURE  USE 


NDIFEQ 


f RETURN 

TO 

COMPUTE 

.DERIVATIVE. 


f RETURN  > 
TO 

COMPUTE 

.DERIVATIVES, 


OUTPUT  > 
ERROR  MESSAGE 


SET  DEPENDENT 
VARIABLES  EQUAL 
TO  SAVED 
STARTING  VALUES 


COMPUTE 


COMP  ITT  F 

, AND  *i,j  *7  ki 

1 - 1,2,...,NEQ 


NDIFEQ 


RETURN 


NDIFEQ  ■ 5 


NDIFEQ 


/ RETURN  \ 
TO 

COMPUTE 
kDSRI  VATIVESj 


( RETURN  > 
TO 

COMPUTE 

^DERIVATIVES, 


(a)  Pag*  1. 

Flow  chart  of  subroutine  ADAMS 


Figure  1-4 


J 

j B ■ 1 

SAVE 


SAVE 


COMPUTE  fc  SAVi 

V<P> 


ND1FEQ 


RETURN  TO 
OUTPUT 


NDIFEQ 


TEST  - TEMR 


VX4*RTEST 
• TEMR 


RETURN  TO\ 
>UTPUT  FIRSTT 
RITNGE-KUTTA. 

STEP  / 


TEMR 


TEMR*  RATIol 


riqurm  1-4.  - Continued. 


_ i ■ i I 


nm 


SAVE 


TEMR 


TEMR 


TEMR 


TEMR 


INITIALIZE  TOR 
RESTART  WITH 
RUNGE-KUTTA 


TEMR 


TEMR* RAT  I 


Figure  1-4.  - Concluded 


' DEFINE 
SUBROUTINE 
L BDYGEN 


WRITE  ERROR 
MESSAGE 


>ETA*RADIUf 
.<  LBODY  . 


STOP 


CALCULATE  XBODY (J) 


N,  AT  EQUALLY 


SPACED  INTERVALS  ON 


F igure  I- 5. - 


DETERMINE 

CONTROL 

POINTS 


DETERMINE 
BODY  DEFINITION 
POINTS 


CALCULATE  ORIGINS 
OF  CONICAL  LINE 
SINGULARITIES.  TX • J) , 
J - 1,  . . . NX  BODY. 


FIRST  CONTROL 
POINT  OUTSIDE 
MACH  CONE 
FROM 
ORIGIN? 


ETA*BF(1) 
v<  XFflK 


MOVE  QUANTITIES 
XBODY ( I ) , RBODY ( I) , 
RPBODY(I),  TX ( I ) , XF (J) 
RF(J),  DRDX(J)  FORWARD 
ONE  ARRAY  LOCATION, 

I - 3, . . . NXBODY, 

J - 3,.. .N. 


CALCULATE  NEW 
VALUES  FOR  XF ( 1 ) , 
RF  ( 1) , DRDX(l)  USING 
SUBROUTINE  SHAPE 


XFIELD  - XF ( 1) 
RFIELD  - RF ( 1) 
SLOPE  - DRDX(l) 


CALCULATE 

SOURCE 

STRENGTHS 


CALL 

SUBROUTINE 
SOURCE 
SING  TX ( 1) 


A ( 1)  - V - SLOPE*U 


FIRST  CONTROL  POINT 
EQUATION  <X-14), 
REF.  1 


Flow  chart  of  au.routina  BDYGEN. 


CALCULATE  XF ( I) 


XBODY ( I ) AND 


XBODY (I  ♦ 1) 


RBODY ( I ) AND 


RPBODY(I) 


DEFINE 

SUBROUTINE 

BLYOUT 


CALCULATE 
DX,  NBD, 
NBIP,  ANGW 


LOOP  OVER 
PANELS  IN 
LENGTHWISE 
ROW. 


ANGW  • r/2 


DEFINE  ARRAY 
LOCATION, 


FOP  BODY  PANEL 


SNT2(J)  * 
SIN ;ang) 
CST(J)  - 
COM  AN G ' 


INITIALIZE 


QUANTITIES  t'Ok  PANELS 
ABOVE  THE  WING: 

IL  - I, 

IU  “ NBDCKL, 

ANGB  - - ANGW  - ir/2, 
THT  - -ANGW, 
ITIMES  - 1, 
CALCULATE  THTS. 


TRANSFORM  Y,Z 
CONTROL  POINT  AND 
CORNER  COORDINATES 
INTO  WING  SYSTEM. 


CALCULATE 

whip,  cpy; 

ai  - o 


XLF(K)  * 
XRF  (K)  • 
XFBIP 


LOOP  OVER  PANELS 
IN  R ING 


XFBIP  • XFBIP  - DX 


J - NBIP 


CALCULATE  QUANTITIES 
CONSTANT  FOR  PANELS 
IN  LENGTHWISE  ROW: 
ANG  ■»  ANCB  (AI  - S)  THTS 
SIN(ANG),  COS (ANG), 
SIN (THT),  COS (THT). 


FLcjur*  1-6.-  flow  chart  of  oubroutm#  RLYOiT. 


(b)  Page  2. 


Figure  1-6. - Concluded. 


RETURN 


INFLUENCE 
OF  FUSELAGE 
PANELS 


CALL  SUBROUTINE 
VELBD  TO  CALCULATE 
FVN(J.I)  - WP, 

J - 1,2, . . . NPANLS 


CALL  SUBROUTINE 
VELBD  TO 
CALCULATE 
FVN ( J, I)  - -VP, 

J - NIP, . . . N2 


CALL  SUBROUTINE 
VELBD  TO 
CALCULATE 
FVN ( J, I ) - WW, 

J - N2P, . . . NPTOT. 


I - NPTOf 


RETURN 


Figure  1-7.-  Concluded. 
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2P  - 1 

Li 

1*1 

L 

DEFINE 
II  • IF  - I 

DEFINE 

SUBROUTINE 

DPRHS 


SET  UEI ( ) 
- VE I ( V ) 

1 WEI (v)  - 0 
Cor  v ■ L, 
NPTOT 


STORE  INDUCED 
VELOCITIES  ON 
WING,  PYLON. 
AND  BODY 


FUSELAGE  INDUCED 
VELOCITIES  ON 
WING  AND  PYLON 


LOCATE  Jth 
CONTROL  POINT 
IN  COORDINATE 
SYSTEM  ASSOCIATED 
WITH  Kth  STORE 


I LOCATE  CONTROL 
POINT  IN  F USE LAG  1 
COORDINATE 
i SYSTEM 


f CALL 
SUBROUTINE 
i VELCAL 


CALL 

SUBROUTINE 

VELCAL 


RESOLVE 

VELOCITIES  INTO 
WING  COORDINATE 
SYSTEM  AND 
ADD  TO  TOTALS 


J - NPTOT 


NSTR^  - 0 


DEFINE  II  AND 
IF  FOR  PYLON 
THICKNESS 
PANELS 


Figur*  1-8.-  Flow  ch«rt  of  nubroutin*  DPRHS 


ADD  VELOCITIES 
TO  TOTALS 

r 

1EFISE  I : . I 
IF  FOB 

■IMG  thick- 
jess  panels 


THICKNESS 

INDUCED 

VELOCITIES 


CALL 

SUBROUTINE 

VELPTH 


WING  ON  BODY 


PYLON  ON  WING 


.ADD  VELOCITIES 
TO  TOTALS 


ADD  VELOCITIES 
TO  TOTALS 


J - NPANLS 


J - NPTOT 


DEFINE  II, 
IF  FOR 

PYLON  THICK- 
NESS PANELS 


WING  ON  FYLOS 


PYLON  ON  BODY 


ADD  VELOCITIES 

TO  TOTALS 


ADD  VELOCITIES 
TO  TOTALS 


(b)  Page  2 


Figure  t-8. - Continued 


DEFINE  II, 

| JF  FOR  WING 
1 THICKNESS 
PANELS 

' 

IP  - lj 

j ■ j 

• l 

( CALL  \ 

SUBROUTINE  ' 
y VE1.WTH  j 

J - N2P  - 1 

f 

J - J 

• 1 

: 

t 

^ CALL  A 

SUBROUTINE 
y VELWTH  j 

CALCULATE 

RIGHT-HAND 

SIDES 


CALCULATE 
RIGHT-HAND  SIDE 
OF  EQUATION  (9), 
REF.  1. 


CALCULATE 
RIGHT-HAND 
SIDE  OF  EQUATION 
(11),  REF.  1. 


J - NPANLS 


:enter  - TR1 


CALCULATE 
RIGHT-HAND 
SIDE  OF  EQUATION 
(10),  REF.  1. 


Figure  1-8.  - Concluded. 


J - NIP  - ll 

j 

j J - 

J * 1 

a 

- N2P  - 1 

■■■ 

1 

r - , 

b 

DEFINE 

SUBROUTINE 

FUSEIO 


^EAD  AND  PRINT> 
FUSELAGE  LENGTH 
AND  MAXIMUM 
S.  RADIUS  J 


f READ  NUMBER  > 
OF  FUSELAGE  SHAPE 
l SECTIONS,  NFPOLYj 


READ  NFPOLY 
' END- SECT  I ON 
LOCATIONS 


' READ  AND  WRITE 
COEFFICIENTS  OF 
SHAPE  POLYNOMIALS 


READ  BODY 
INTERFERENCE 
PANEL  DATA, 

:nput  items  9, 


WRITE  NUMBER 
OF  FUSELAGE 
PANELS 


CALL 

SUBROUTINE 

BDYGEN 


CALCULATE 
SOURCE  AND 
DOUBLET 
DISTRIBUTION 


RETURN 


rigur*  1-9. - Flow  chart  of  subroutine  FUSEIO. 
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NUMBER  OF  BODY 
DEFINITION 
POINTS,  NX BODY 

DEFINE 

SUBROUTINE 

NUMACH 


DELXl 

WSAVE 


0. l*CHRD 

XSAVE  - 0 


SEARCH.  FOR 
XT  3 


BETA 


INUMCH  - I 


BETANU 


(WLEX  - CHRD  - Z*B) 
/DELXl 


CHRD  EQUALS 
ROOT- CHORD 


YY  2 Right  SIDE 
OF  FIRST 
CHORDWISE  ROW? 


WLEX  - 0 
WTEX  - -CRW 


INTERPOLATE 
FOR  WLEX 
AND  WTEX 


CHRD  E 
TIP-C 


WRITE 

ERROR 

MESSAGE 


STOP 


X * XSAVE  • DELXl 
DELXl  - DELXl/3 


Figure  1-10.-  Flow  chert  of  subroutine  NUMACH 
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/ SUBROUTINE  \ 
\ VELWTH  / 

WP  - 

-WP 

>> 

NO 

WSAVE 

XSAVE 

« WP 
« X 

1-1 
JLE  - (I  - 

• ) 

2)  *NCW  ♦ 1 

Ik 

X NO 

VES 

s WLEX  - 
JTE  - JLE 
WTEX  - 

LF (JLE) 

• NCW  - 1 
LB (JTE) 

CHRD  - WLEX  - WTEX 
INUMCH  - 0 
II  - 1 
IF  * MS 

X - X - DELXl 
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INTERVAL 
SIZE 


f CALL 
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BEGIN 
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CALL 

SUBROUTINE 
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F CALL 
SUBROUTINE 
i VELWTH 


CALCULATE  PNUMCH , 
(EQUATION  .7,  REF.  i) 
AND  BETANU, 
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X - X - DELXl 


' CALL 
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l VELWTH 
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SEARCH  FOR  XT 3 
USING  1/9 
INTERVAL 
SIZE 


' CALL 
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Figure  I- 10.-  Continued 
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Figure  I-lO.-  Concluded 
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WRITE  INPUT 
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APPENDIX  II 


DETERMINATION  OF  TAIL-FIN 
LIFT-CURVE  SLOPE 


II-l.  INTRODUCTION 


The  purpose  of  this  appendix  is  to  describe  a method  for  estimating 
the  value  of  the  tail-fin  lift-curve  slope,  to  be  input  into  the 

computer  program.  The  value  can  be  determined  using  reference  8;  however, 
the  value  of  Cx,a  from  Chart  8 of  that  reference  must  be  modified  in 
order  to  use  the  empennage  force  calculation  method  incorporated  into  the 
computer  program.  This  method  assumes  full  lift  carryover  onto  the  body 
due  to  the  tail  fins.  At  supersonic  speeds  this  is  not  the  case,  parti- 
cularly when  the  body  ends  at  or  near  the  trailing  edge  of  the  fins. 


A method  for  determining  the  value  of  the  lift-curve  slope  which 
accounts  for  the  reduced  lift  carryover  will  now  be  presented. 


II-2.  LIFT-CURVE  SLOPE  DETERMINATION 


The  modified  lift-curve  slope  is  calculated  using  Charts  1 
8 of  reference  8 and  the  following  equation: 


The  value  of  Ct  is  obtained  from  Chart  8.  The  aspect  ratio  used  is 
that  of  two  of  the  exposed  panels  joined  together.  The  reference  area 
used  in  forming  this  coefficient  is  the  area  of  the  two  fins  joined 
together.  Thus,  it  is  multiplied  by  the  ratio  of  this  area  divided  by 
the  reference  area  used  in  the  computer  program,  the  store  maximum  cross 
sectional  area.  This  is  the  ratio  S„/S  . 


The  quantities  in  the  bracketed  term  are  lift  ratios  and  are  obtained 
from  Charts  1 and  4 of  reference  8.  The  number  subscripts  in  equation  (n-1) 
refer  to  the  chart  number.  The  denominator  in  this  term  is  the  sum  of  the 
lift  ratios  for  full  lift  carryover  onto  the  body.  The  numerator  accounts 
for  only  partial  lift  carryover  onto  the  body.  In  determining  the  value 
of  from  Chart  4,  (CLa)w  is  CL  S^/Sp,  the  quantity  multiplying 

the  bracketed  term  in  equation  (II-l). 


MM 


It  is  recommended  that  Chart  4 be  used  for  low-aspect-ratio  as  well 
as  high-aspect-ratio  tail  fins.  Reference  8 recommends  that  Chart  4 only 
be  used  when  the  aspect  ratio  parameter  defined  there  is  greater  than  4.0. 
The  use  of  this  chart  in  determining  KB(T)  for  values  of  the  aspect 
ratio  parameter  of  3.0  and  2.25  has  resulted  in  good  agreement  with 
experimental  data  for  the  two  different  stores  in  uniform  flow. 
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